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

Question

Информатика

Адамушка

8 мая, 02:11

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

+4

Ответы (1)

Знаете ответ на вопрос?

Мавродий · 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.