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

Question

Информатика

Милетя

11 июня, 21:52

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

+4

Ответы (1)

Знаете ответ на вопрос?

Полинария · Answer 1

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.