В однородном массиве, состоящем из 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.
Answers & Comments
Verified answer
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.