ТутРешу.Ру

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

Задание:

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

Решение:

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.




Знаете другой ответ?

Отправить свой ответ