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

Question

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

Answer 1

54

vvaleriy

07 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: