Question

Составьте программу которая в одномерном массиве состоящем из 20 случайных чисел (дробных) из промежутка (0;50) находит наибольший элемент

Answer 1

===== PascaslABC.NET =====

begin

 var a := ArrRandomReal(20, 0, 50);

 a.Println;

 Print('Max =', a.Max)

end.

Answer 2

Ответ:

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.