Помогите, срочно! Задача ** двумерный массив в Pascal!В группе учится N студентов,...

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

Информатика | 51 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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

(194k баллов)