Максимальный элемент главной диагонали

@nitrin · Регистрация: 01.11.2011

Author24 — интернет-сервис помощи студентам

Дан квадратный числовой массив размером 7x7 Найти максимальный элемент среди элементов главной диагонали.

Delphi

program Project2;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=7;
  type mas=array[1..n,1..n]of integer;
  procedure vvod(a:mas);
  var i,j:integer;
begin
  for i:=1 to n do
  for j:=1 to n do
  a[i,j]:=random(100);
end;
 procedure vivod(a:mas);
 var i,j:integer;
 begin
 for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 
 writeln;
 end
 end;
 procedure max(a:mas);//нахожденние максимального элемента
 var i,j, m1:integer;
 begin
 
 for i:=1 to n do
 for j:=1 to n do
 if i<j then begin//проверка на принадлежность к главной диагонали
 m1:=a[i,j];
 if a[i,j]>m1 then m1:=a[i,j];//присвоение нового значения при нахождении большего элемента
 end;
 end;
 var a:mas; m1:integer;
 begin
 randomize;
 vvod(a); vivod(a);
 max(a);
 writeln(m1);
 
 
 readln;
 
 end.

в итоге программа выдает массив элементы которого нули

@Puporev · 01.11.2011, 11:31

Pascal

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const n=7;
  type mas=array[1..n,1..n]of integer;
procedure vvod(var a:mas);
var i,j:integer;
begin
  for i:=1 to n do
  for j:=1 to n do
  a[i,j]:=random(100);
end;
procedure vivod(a:mas);
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:4);
  writeln;
 end
end;
procedure max(a:mas;var m1:integer);//нахожденние максимального элемента
var i,j:integer;
begin
m1:=a[1,1];
for i:=1 to n do
if a[i,i]>m1 then m1:=a[i,i];//присвоение нового значения при нахождении большего элемента
end;
var a:mas; m1:integer;
begin
randomize;
vvod(a);
vivod(a);
max(a,m1);
writeln(m1);
readln;
end.

	01.11.2011, 11:31