Дан массив случайных чисел из 20 вещественных элементов. Найти максимальный по модулю...

Question

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

Comments

Чего как девка пищишь

Answer 1

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.