Предмет: Информатика,
автор: dimychя
Дан массив случайных чисел из 20 вещественных элементов. Найти максимальный по модулю элемент массива. Помогите пожалуйста!!!! Мне нужна сама программа написанная! Помогитее!)))
Ответы
Автор ответа:
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.
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
Предмет: Математика,
автор: Аноним
Предмет: История,
автор: sletavs08
Предмет: Математика,
автор: ardaeko