Вопрос по информатике:
Экзаменационные оценки учащихся классов вводятся в программу с помощью Data.
Определите и выведите на экран.
1)Сколько учеников получили "5"
2)Есть ли в классе "2"
3)Средний балл
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.06.2016 12:10
- Информатика
- remove_red_eye 8091
- thumb_up 40
Ответы и объяснения 2
var
x,i,x1:integer;
flag:boolean;
***
begin
***
x:=0;
x1:=0;
flag:=false;
for i:=0 to Data.Length do
begin
if Data[i] = 5 then x:=x+1;
if Data[i] = 2 then flag:=true;
x1 := x1+Data[i];
end;
writeln(x+' учеников получили 5');
if flag=true then writeln('В классе есть 2');
else writeln('В классе нет 2');
x1:=x1/Data.Length;
writeln('Средний бал: ',x1);
end.
- 21.06.2016 07:25
- thumb_up 16
// Внимание! Если программа не работает, обновите версию!
begin
var Data:=Arr(4,3,5,2,5,4,3,5,5,3,4,4,4,3,5,2,4,3,5,3);
Write('Оценки: '); Data.Println;
Writeln('Количество пятерок: ',Data.Where(t->t=5).Count);
if Data.Any(t->t=2) then Writeln('Двойки есть')
else Writeln('Двоек нет');
Writeln('Средний балл равен ',Data.Average:0:1)
end.
- 22.06.2016 05:16
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.