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

1)varmas: array [1..5] of integer;i:integer;beginfor i:=1 to 5 doread(mas[i]);for i:=1 to 5 do beginmas[i]:=mas[i]-20;write(mas[i],' ');end;end.2)varmas: array [1..8] of real;i:integer;beginfor i:=1 to 8 doread(mas[i]);for i:=1 to 8 do beginif i mod 2 = 0 thenwrite(mas[i]-1,' ')elsewrite(mas[i]+1,' ')end;end.