Дана матрица с 4 столбцами и 6 строками. В каждой строке содержатся оценки одного из 6 студентов по 4 экзаменам. Отпечатать номера тех строк, которым соответствует средний балл студента, больший заданной величины, и число таких строк на языке Pascal(Паскаль).
Const
n=6;
m=4;
Var
a:array [1..n,1..m] of integer;
i,j,k,s:integer;
c:real;
Begin
Writeln('Введите средний балл для сравнения:');
Readln(c);
for i:=1 to n do
begin
Writeln('Оценки ',i,' студента:');
for j:=1 to m do
begin
Write(j,' - ');
Readln(a[i,j]);
end;
end;
Writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
Write(a[i,j]:5);
Writeln;
end;
k:=0;
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
s:=s+a[i,j];
if s/m>c then
begin
k:=k+1;
Writeln(i);
end;
end;
Writeln('Таких строк: ',k);
End.
