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

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