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

Дана матрица А (4*5). Вычислить сумму квадратов всех ее отрицательных элементов. Кто сможет решите на паскале?
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы