Нужна ! 1.дан массив состоящий из 5 случайных целых чисел от -1 до 10. все его элементы уменьшить на число 20. 2.дан массив состоящий из 8 вещественных чисел. все элементы с четными номерами уменьшить на 1,с нечетными-увеличить на 1.

146

435

Посмотреть ответы 2

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

close44

Информатика

4,7(18 оценок)

1) var mas: array [1..5] of integer; i: integer; begin for i: =1 to 5 do read(mas[i]); for i: =1 to 5 do begin mas[i]: =mas[i]-20; write(mas[i],' '); end; end. 2) var mas: array [1..8] of real; i: integer; begin for i: =1 to 8 do read(mas[i]); for i: =1 to 8 do begin if i mod 2 = 0 then write(mas[i]-1,' ') else write(mas[i]+1,' ') end; end.