Question

Дана матрица А (4*5). Вычислить сумму квадратов всех ее отрицательных элементов. Кто сможет решите на паскале?

Answer 1

Const
  m=4;
  n=5;
var
  a:array[1..m,1..n] of integer;
  i,j,s,e:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to m do
    begin
    for j:=1 to n do
      begin
      e:=Random(100)-50;
      a[i,j]:=e;
      if e<0 then s:=s+sqr(e);
      write(e:4)
      end;
    writeln
    end;
  writeln('Сумма квадратов отрицательных элементов равна ',s)
end.

Тестовое решение:

  43 -12 -47  27  34
 -47 -44 -38  47  -5
  29 -40 -44  46  21
 -17  32   0  10 -43
Сумма квадратов отрицательных элементов равна 13641