Найти наибольший среди элементов массива А (10), остальные обнулить

Question

Найти наибольший среди элементов массива А (10), остальные обнулить

Answer 1

54

inquest

08 марта 2023

Program Z_n; var a: array[1… 10] of integer; i,m: integer; BeginRandomize; Write ('Исходный массив: '); m: =-1000; For i: =1 to 10 do begina[i]: =Random (50); Write (a[i],'); if a[i]>m then m: =a[i]; end; writeln; Write ('Массив после обработки: '); For i: =1 to 10 do beginif a[i]<>m then a[i]: =0; Write (a[i],'); end; writeln; end.

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

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

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

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

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