Дан массив. Все его элементы увеличить на число b. Помогите написать пограмму в паскале
Дан массив. Все его элементы увеличить на число b. Помогите написать пограмму в паскале
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы