Предмет: Информатика, автор: dimychя

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

Ответы

Автор ответа: Kolsky
0
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)<abs(a[i])
     then out := a[i];
end;
write(out);
end.
Похожие вопросы
Предмет: Математика, автор: ritaskladneva
Предмет: Математика, автор: Аноним
Предмет: Математика, автор: ardaeko
вычислите  удобным   способом.Воспользуйтесь   при   вычислениях   произведениями    6*12*30                                                                                                                               35*46*0                                                                                                                                 4*47*25                                                                                                                              5*2*7*2*5*7                                                                                                                          1*2*5*8                                                                                                                                  1*2*3*4*5*6                                                                                                                        2*8*125*4                                                                                                                            75*63*0                                                                                                                               25*8*4                                                                                                                                  25*8*4                                                                                       4*35*3                                                                                                                              10*43*10                                                                                                                         7*8*1*125