Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Задан массив из 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 max

for i:=1 to 10 do if a[i]>0 then a[i]:=max;

writeln;

for i:=1 to 10 do write(a[i], );

end.