Натйти максимальный по модулю элемент и его порядковый номер. составить программу в паскале

Question

Информатика

Игуля

1 сентября, 20:39

Натйти максимальный по модулю элемент и его порядковый номер. составить программу в паскале

+2

Ответы (1)

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

Кантидиан · Answer 1

Var a: array [0 ... 10] of integer;

i, m: integer;

begin

for i : = 0 to 10 do

begin

a[i] : = random (50) - 25;

writeln ('[', i, '] = > ', a[i]) ;

end;

for i : = 0 to 10 do

if (abs (a[i]) > abs (a[m])) then

m : = i;

writeln ('[', m, '] = > ', a[m]) ;

end.