Найти максимальный элемент дополнительной диагонали квадратной матрицы (в паскале)
10-11 класс
|
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.
Другие вопросы из категории
лет в десятичной системе счисления?
экран должно выводитЬся меню:
****Телефоннный справочник*****
Добавление
Поиск
Завершение работы
Введите номер пункта меню и нажмите Enter
***************************************
Буду благодарен.
a<=100,b<=100,c<=100.Тройки наз. одинаковыми, если значения a и b меняются местами.Найти мер.,(3,4,5)(4,3,5) одинаковые тройки.
Дано целое 3-х значное число, в нем крайнюю правую цифру зачеркнули и приписали е слева. Составить программу, реализующую это действие
пожаалуйста
Читайте также
NxN. Программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты.
Найти в каждом четном по номеру столбце матрицы максимальный элемент и вычислить произведение этих элементов.