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.
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.