Помогите, срочно! Задача на двумерный массив в Pascal!В группе учится N студентов, студенты получили по четыре отметки за экзамен. Определить количество неуспевающих студентов и средний балл группы.

Помогите, срочно! Задача на двумерный массив в Pascal! В группе учится N студентов, студенты получили по четыре отметки за экзамен. Определить количество неуспевающих студентов и средний балл группы.
Гость
Ответ(ы) на вопрос:
Гость
const n=5; m=4; var  a:array[1..n,1..m] of integer; i,j,k,d,s:integer; begin Randomize; writeln('Оценки:'); for i:=1 to n do  begin  for j:=1 to m do   begin   a[i,j]:=random(4)+2;   write(a[i,j]:4);   end;   writeln;  end; k:=0; s:=0; for i:=1 to n do  begin  d:=0;  for j:=1 to m do    begin   if a[i,j]=2 then d:=d+1;   s:=s+a[i,j];   end;  if d>0 then k:=k+1;  end; writeln('Количество неуспевающих = ',k); writeln('Средний балл группы = ',s/n/m); end. Пример: Оценки:    5   3   3   5    3   4   2   2    4   5   5   5    2   4   4   2    5   2   3   3 Количество неуспевающих = 3 Средний балл группы = 3.55
Не нашли ответ?
Ответить на вопрос
Похожие вопросы