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

Нужна помощь! 1.дан массив состоящий из 5 случайных целых чисел от -1 до 10. Все его элементы уменьшить на число 20. 2.дан массив состоящий из 8 вещественных чисел. все элементы с четными номерами уменьшить на 1,с нечетными-увеличить на 1.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы