Дан одномерный массив заменить все положительные элементы на максимальное среди них все отрицательные элементы массива на их индексы
Дан одномерный массив заменить все положительные элементы на максимальное среди них все отрицательные элементы массива на их индексы
Ответ(ы) на вопрос:
Гость
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 Раз у нас задача на замену то осуществляем вывод массива чтобы просмотреть его элементы
Не нашли ответ?
Похожие вопросы