Регистрация
Nuruk04
Есть ответ 👍

К табличным процессорам относятся​

253
388
Посмотреть ответы 1

Ответы на вопрос:

hhggggghg
hhggggghg
4,5(59 оценок)
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 раз у нас на замену то осуществляем вывод массива чтобы просмотреть его элементы

Популярно: Другие предметы