Question

Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму элементов больших числа К введенного с клавиатуры.

Answer 1

const

 n=10;

var

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

 i,j,sum,k:integer;

begin

 sum:=0;

 readln(k);

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(21)-10;

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

         if a[i,j]>k then

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

       end;

     writeln;

   end;

 writeln(sum);

end.