Задание:
Натйти максимальный по модулю элемент и его порядковый номер. Составить программу в паскале
Решение:
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.
Знаете другой ответ?