Question

Язык pascal
Дана матрица натуральных чисел А(N,N). Найти количество строк, среднее арифметическое которых больше заданного числа.

Answer 1

const  

 n=5;

var

 a:array [1..n,1..n] of integer;

 k,i,j,count,sr:integer;

begin

 readln(k); count:=0;

 for i:=1 to n do

   begin

     sr:=0;

     for j:=1 to n do

       begin

         a[i,j]:=random(100);

         write(a[i,j]:4);

         sr:=sr+a[i,j];

       end;

     writeln;

     if sr/n > k then inc(count);

   end;

 writeln(count);

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!