Предмет: Информатика,
автор: andreyxaritonow
Написать задачу в Паскале.9 класс.
Найти максимальный элемент дополнительной диагонали квадратной матрицы.
maximus22870:
норм ответ?
Ответы
Автор ответа:
1
var a:array[1..8, 1..8] of integer;
max, i, j:integer;
begin
randomize;
max:=0;
for i:=1 to 8 do
for j:=1 to 8 do
a[i,j]:=random(200);
for i:=1 to 8 do
for j:=1 to 8 do
if i+j=9 then
begin
if a[i, j]>max then max:=a[i, j];
end;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(a[i, j]:5);
writeln;
end;
writeln('Максимальный элемент=', max);
end.
Похожие вопросы
Предмет: Русский язык,
автор: Настасья0207
Предмет: Русский язык,
автор: lesik27
Предмет: Русский язык,
автор: Анютка555555
Предмет: Математика,
автор: русикоз