Дан одномерный массив заменить все положительные элементы на максимальное среди них все отрицательные элементы массива на их индексы

Дан одномерный массив заменить все положительные элементы на максимальное среди них все отрицательные элементы массива на их индексы
Гость
Ответ(ы) на вопрос:
Гость
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 a[i]> max then max:=a[i]; for i:=1 to 10 do begin if a[i]>0 then a[i]:=max; if a[i] >0 then a[i]:=i; end; for i:=1 to 10 do  writeln( a[i]); end.  1. Заполняем массив из 10 элементов 2 Считаем условно что первый элемент максимальный 3 В цикле начиная со второго элемента находим максимальный элемент 4 Осуществляем преобразования в цикле с учётом условия 5 Раз у нас задача на замену то осуществляем вывод массива чтобы просмотреть его элементы
Не нашли ответ?
Ответить на вопрос
Похожие вопросы