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.