Список предметов

Математика
Литература
Алгебра
Русский язык
Геометрия
Английский язык
Химия
Физика
Биология
Другие предметы
История
Обществознание
География
Українська література
Українська мова
Казак тили
Беларуская мова
Информатика
Экономика
Право
Дана квадратная матрица действительных чисел.Найти сумму модулей элементов , расположенных выше главной диагонали.
спросил от в категории Информатика

1 Ответ

Program gt;
var A: array[1..1000,1..1000] of real;
n,m,i,j:integer;
s: real;
begin
read(n,m);    //размеры массива
s:=0;
for i:=1 to N do
for j:=1 to M do
begin
read(a[i,j]);
if(j>i)then s:=s+abs(a[i,j]);
end;
writeln(s);
end.
ответил от
x
...