Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дан массив случайных чисел из 20 вещественных элементов. Найти максимальный по модулю элемент массива. Помогите пожалуйста!!!! Мне нужна сама программа написанная! Помогитее!)))

Ответ оставил Гость

Var a:array[1..20] of real;
var out:real;
var i:integer;
begin
out:=0;
for i:=1 to 20 do
begin
  a[i]:=random();
  if abs(out)     then out := a[i];
end;
write(out);
end.