===== PascaslABC.NET =====
begin
var a := ArrRandomReal(20, 0, 50);
a.Println;
Print('Max =', a.Max)
end.
var
a: array[0..20] of real;
i, iMax: integer;
//iMax:real;
begin
Randomize;
iMax := 1;
Writeln('Исходный массив');
for i := 1 to 20 do
begin
a[i] := random(0.00, 50.00);
Write(a[i]:0:2, #32);
end;
for i := 1 to 20 do
if a[i] > a[iMax] then
begin
iMax := i;
end;
Writeln('Элемент номер: a[', iMax, '] ','максимальный. Значение: ', a[iMax]:0:2);
end.
