72

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

userpc 08 апреля 2023

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

категория: информатика

54

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.

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

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...