Информатика Написать
Считаем с клавиатуры число n, а затем n чисел в массив. Увеличим каждый элемент массива на m, которое тоже считаем с клавиатуры, и выведем измененный массив на экран.

program z1;

var i,n,m:integer;

a : array [1..100] of integer;

begin

write ('n (n<=100) = ');

readln(n);

write ('m = ');

readln(m);

for i:= 1 to n do

begin

write ('a [',i,'] = ');

readln(a[i])

end;

writeln;

write ('Массив: ');

for i:= 1 to n do write(a[i],' ');

writeln;

write ('Массив: ');

for i:= 1 to n do

begin

a[i]:=a[i]+m;

write(a[i],' ')

end

end.

Объяснение:

Вводим n, m, а затем числа в массив

Выводим массив

Вычисляем изменение элементов массива и выводим их