Паскаль. Дана квадратная матрица действительных чисел. Определить сумму квадратов всех положительных элементов матрицы.
BobbyFresnel:
Это уже решено несколько дней назад.
Ответы
Ответ дал:
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.
Вас заинтересует
5 месяцев назад
5 месяцев назад
6 месяцев назад
6 месяцев назад
7 лет назад