Задан массив из 10 целых чисел. Замените все положительные элементы данного массива его максимальным элементом.

Задан массив из 10 целых чисел. Замените все положительные элементы данного массива его максимальным элементом.
Гость
Ответ(ы) на вопрос:
Гость
var a:array[1..10]of integer; i,max:integer; begin for i:=1 to 10 do readln(a[i]); max:=a[1]; for i:=2 to 10 do if max0 then a[i]:=max; writeln; for i:=1 to 10 do write(a[i],' '); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы