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

найти максимальный по модулю элемент массива,массив состоит из n вещественных чисел . Помогите пожалуйста))

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

uses crt;
var a:array[1..99] of real;
i,j,n:integer;
max:real;
begin
write(Введите n: );
readln(n);
writeln(Исходный массив: );
for i:=1 to n do begin
a[i]:=random(99-(-99)+1)-99;
write(a[i]:5);
end;
writeln;
max:=-5;
for i:=1 to n do begin
if abs(a[i])>max then begin max:=abs(a[i]);j:=i; end;
end;
writeln(Максимальное по модулю число равно ,a[j]);
end.

Здесь элементы массива - случайные числа от -99 до 99. В ответе выписывается само число, а не его модуль. Если нужен именно модуль, то меняем предпоследнюю строку на writeln(Максимальное по модулю число равно ,max);