Консультация № 196802
25.10.2019, 12:11
0.00 руб.
0 1 1
Здравствуйте! Прошу помощи в следующем вопросе:

Вычислить сумму квадратов отрицательных чисел, лежащих выше побочной диагонали.
задается квадратная матрица NxN.
Pascal

Приложение:
Pascal

Обсуждение

давно
Старший Модератор
31795
6196
25.10.2019, 12:54
общий
это ответ
Здравствуйте, rail!

Смотрите приложение:
[code lang=pascal]const
n=7;
var
a:array[1..n,1..n]of integer;
b,c,d:integer;
begin
d:=0;
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(2*n)-n;
write(a[b,c]:4);
if(a[b,c]<0)and((b+c-1)<n)then d:=d +a[b,c]*a[b,c];
end;
writeln;
end;
writeln('result:',d);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа