Задание:
Найти наибольший среди элементов массива А (10), остальные обнулить
Решение:
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.
Знаете другой ответ?