Реклама
. . .. : :: = :: : .. . .
  www.mgou-noginsk.narod.ru -Неофициальный сайт МГОУ в Ногинске

Вариант 00 задание 2

В матрице D(50,50) найти максимальный элемент среди элементов, расположенных выше главной диагонали.

//Вот тут начало программы.

program Proga2;
{$APPTYPE CONSOLE}

Const n=50; // n - количество эл-тов строки и столбца
Var H:Array [1..n,1..n] of integer; //Массив эля хранения Эл-тов матрицы
i,j,maxEl:integer; //Строка, столбец, максимальный элемент
begin
writeln ('Source Matrix...');
for i:=1 to n do //Создание исходной матрицы
begin
for j:=1 to n do
begin
H[i,j]:=random(10); //Создаём случайным образом элемент матрицы
Write (H[i,j],' '); //Выводим на экран элемент
end;
WriteLn;
end;
Writeln;

for i:=1 to n do
begin
for j:=1 to n do
begin
if j>i then // Если элемент выше главной диоганали, то
begin
if maxEl < H[i,j] then //Если элемент больше максимального,то…
maxEl:=H[i,j]; //…он сам становится максимальным элементом
end;
end;
end;

Writeln;

Write(maxEl); //Выводим результат(максимальный элемент)
Writeln;
writeln ('Press ENTER for EXIT');
readln; //ждём нажатия "Enter" для завершения программы
end.

 

//Вот тут конец программы.

Новости
. . .. : :: = :: : .. . .
Объявления
. . .. : :: = :: : .. . .
Реклама
. . .. : :: = :: : .. . .
 
Hosted by uCoz