Дан массив состоящий из 30 элементов. Найти в массиве максимальный элемент, вывести его значение и номер на экран. Отрицательный элемент массива заменить на равные по модулю положительные элементы.

Program massiv;

var i, max, n, j: integer;

a: array[1 ... 30] of integer;

begin

writeln ('Введите элемент массива');

for i:=1 to 30 do

begin

write ('a[', i,']-');

readln (a[i]);

end;

n:=1;

max:=a[i];

for i:=2 to 30 do

if max
begin

max:=a[i];

n:=i;

end;

for i:=1 to 30 do

if a[i]<0 then a[i]:=-a[i];

writeln ('Наибольший элемент в массиве ', max);

writeln ('Номер массива ', n);

writeln ('Получившийся массив');

for i:=1 to 30 do

write (a[i],' ');

end.