сначала надо отсортировать массив.
я отсортировал по убыванию и вывел первый элемент, т.е максимальный
Объяснение:
const
m = 10;
var a: array[1..m] of integer;
i,j:integer;
begin
for i:=1 to m do begin
read(a[i]);
end;
for i:=1 to m-1 do
for j:=1 to m-i do
if a[j] < a[j+1] then begin
swap(a[j],a[j+1]);
writeln;
for i:=1 to m do
write(a[i],' ');
writeln(a[1]);
end.
Кратчайшее решение:
Другое из множества возможных решений:
сначала надо отсортировать массив.
я отсортировал по убыванию и вывел первый элемент, т.е максимальный
Объяснение:
const
m = 10;
var a: array[1..m] of integer;
i,j:integer;
begin
for i:=1 to m do begin
read(a[i]);
end;
for i:=1 to m-1 do
for j:=1 to m-i do
if a[j] < a[j+1] then begin
swap(a[j],a[j+1]);
end;
writeln;
for i:=1 to m do
write(a[i],' ');
writeln;
writeln(a[1]);
end.
Кратчайшее решение:
### RAI(10).Max.PrДругое из множества возможных решений:
##var a := ReadArrInteger(10);var max := a.Max;Print('Максимальный элемент:', max)