Question

экзаменационные оценки учащихся классов вводятся в программу с помощью Data.
Определите и выведите на экран.
1)Сколько учеников получили "5"
2)Есть ли в классе "2"
3)Средний балл

Answer 1

program ff;

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.

Answer 2

Мало ли с чем вы там не работали...

Answer 3

А как заполнить этот массив Data.Точнее что написать?

Answer 4

Это пусть вам автор ответа рассказывает.

Answer 5

Печалька

Answer 6

Ну а почему я должен в его программе ковыряться? Тем более, в допотопном стиле написанной.

Answer 7

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

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.

Answer 8

Само-собой, список оценок может быть любой длины и содержания.

Answer 9

Благодарю

Answer 10

Задача глупая.Даже не известно сколько учеников.

Answer 11

Нормальная задача. Программа ДОЛЖНА работать с любым разумным количеством учеников.

Answer 12

А иначе это не программа, а так...