Question

Введите с клавиатуры значения элементов
массива и увеличьте на 5 значения всех элементов
массива, кроме первого и последнего.
решите на паскале

Answer 1

Ответ:

1

2

3

4

5

[1,7,8,9,5]

Объяснение:

var

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

 i,n,j:integer;

begin

 n := 5;

 for i:=1 to 5 do

   a[i] := ReadInteger;

 for j := 1 to n - 2 do

   a[j+1] += 5;

 print(a);

end.