Вычислить сумму квадратов элементов, больших заданного С и находящихся на главной диагонали и ниже ее.(ПАСКАЛЬ)
срочно выручайте
Ответы на вопрос
Ответил petrovadas4ulia
0
Ответ:
program N64568360;
var a:array[1..10, 1..10] of shortint;
n, i, j:byte;
s:shortint;
begin
randomize;
n := random(8) + 3;
writeln('Заданная матрица, порядкa ',n,':');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[ i, j ] := random(21) - 10;
write(a[ i, j ]:4)
end;
writeln
end;
s := 0;
for i := 1 to n do
s := s + a[ i, i ];
writeln('Сумма элементов главной диагонали: ',s);
readln
end.
Объяснение:
Новые вопросы
Математика,
1 год назад
Математика,
2 года назад
Русский язык,
2 года назад
Литература,
7 лет назад
Химия,
7 лет назад