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

Question

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

Answer 1

Max:=-32768;
for i:=1 to 7 do
if a[i] > max then
max:=a[i];
for i:=1 to 7 do
if a[i]>o then 
a[i]:=max;

Comments

Спасибо большое