Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [pascal] значение наибольшего элемента

Автор: mirag 10.12.2006, 19:07

найти:
значение наибольшего элементаглавной диагонали матрицы А.

Автор: Rodman 11.12.2006, 13:52

Код


program Mas;
uses Crt;
const m = 1100;
var a:array [1..m,1..m] of integer;
      i,maxi,j:integer;
   BEGIN
   maxi:=-1000;
   for i:=1 to m do
   for j:=1 to m do
   begin
       readln(a[i,j]);   
       if((i=j)and(maxi<a[i,j]))then
       begin 
          maxi=a[i,j];
       end;
   end;
   writeln('Bugest element = ',maxi);
END.