Предмет: Информатика,
автор: kartavcevm
найти количество положительных элементов матрицы , находящихся на главной диагонали
Ответы
Автор ответа:
0
var
a: array [1..10, 1..10] of integer;
i, j: byte;
begin
randomize;
writeln(' *** Исходный массив *** ');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(41)-20;
write(a[i, j]:5);
end;
writeln;
end;
writeln('Положительные эл. главной диагонали: ');
for i := 1 to 10 do
for j := 1 to 10 do
if ((i = j) and (a[i, j] > 0)) then
write(a[i, j], ' ');
end.
a: array [1..10, 1..10] of integer;
i, j: byte;
begin
randomize;
writeln(' *** Исходный массив *** ');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(41)-20;
write(a[i, j]:5);
end;
writeln;
end;
writeln('Положительные эл. главной диагонали: ');
for i := 1 to 10 do
for j := 1 to 10 do
if ((i = j) and (a[i, j] > 0)) then
write(a[i, j], ' ');
end.
Похожие вопросы
Предмет: Литература,
автор: citcitxtix
Предмет: Українська мова,
автор: nikitathebest1235
Предмет: Химия,
автор: nastya666sukrusheva
Предмет: Обществознание,
автор: katyaberseneva
Предмет: Литература,
автор: Ann5111