Задан массив из 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.
Не нашли ответ?
Похожие вопросы