Определить сумму всех частей массива, расположенных надглавной диагональю

Найти сумму всех частей массива, расположенных над
основной диагональю

Задать свой вопрос
1 ответ
Const 
n=3; 
var a:array[1..n, 1..n] of integer; 
i,j,s:integer; 
begin 
s:=0; 
writeln('Введите элементы матрицы'); 
for i:=1 to n do 
for j:=1 to n do begin 
read(a[i,j]); 
if ilt;j then s:=s+a[i,j]; 
end; 
writeln; 
for i:=1 to n do begin 
for j:=1 to n do write(a[i,j], ' '); 
writeln; 
end; 
writeln('Сумма всех частей над основной диагональю = ',s); 
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт