Question

Дан массив. Все его элементы увеличить на число b. Помогите написать пограмму в паскале

Answer 1

Const
N=10 //размер массива
Type
A=array[1..n]of real;
Var
I,B:integer;
Begin
For I=1 to n do
Read(a[i]); //ввели массив

Read(b);

For I=1 to n do
Begin
A[i]:=a[i]+b;
Write(a[i]);
End

End.