Question

Паскаль. Дана квадратная матрица действительных чисел. Определить сумму квадратов всех положительных элементов матрицы.

Answer 1

const n=5;

var a: array[1..n,1..n] of real;

i,j: integer;

s: real;

begin

s:=0;

writeln('Введите матрицу:');

for i:=1 to n do for j:=1 to n do read(a[i,j]);

for i:=1 to n do for j:=1 to n do

if(a[i,j]>0) then s:=s+a[i,j]*a[i,j];

write('сумма квадратов положительных элементов: ',s);

end.