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

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

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

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

Печалька

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

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

Благодарю

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

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

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

program ff;varx,i,x1:integer;flag:boolean;***begin***x:=0;x1:=0;flag:=false;for i:=0 to Data.Length dobegin 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.

// 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.