program Max_Element;
var M: array [1..20] of byte;
max, i, n: byte;
begin
randomize;
for i:=1 to 20 do
begin
m[i]:=random(40);
write (m[i],’ ‘);
end;
writeln;
max:=m[1]; {считать 1-й элемент максимальным}
n:=1; {запомнить номер максимального элемента}
for i:=2 to 20 do {проверить все элементы, начиная со второго}
begin
if m[i]>max then {если очередной (i-й) элемент массива больше чем max}
begin
max:=m[i]; {то считать максимальным i-й элемент}
n:=i; {и запомнить его порядковый номер}
end;
end;
writeln (‘Максимальный элемент: ‘,max);
writeln (‘Он расположен на ‘,n,’ месте‘)
end.
var M: array [1..20] of byte;
max, i, n: byte;
begin
randomize;
for i:=1 to 20 do
begin
m[i]:=random(40);
write (m[i],’ ‘);
end;
writeln;
max:=m[1]; {считать 1-й элемент максимальным}
n:=1; {запомнить номер максимального элемента}
for i:=2 to 20 do {проверить все элементы, начиная со второго}
begin
if m[i]>max then {если очередной (i-й) элемент массива больше чем max}
begin
max:=m[i]; {то считать максимальным i-й элемент}
n:=i; {и запомнить его порядковый номер}
end;
end;
writeln (‘Максимальный элемент: ‘,max);
writeln (‘Он расположен на ‘,n,’ месте‘)
end.