Question

с р о ч н о задать массив, состоящий из 10 элементов, заполнить его любыми числами с клавиатуры и все его элементы: а) увеличить на число b б)уменьшить на последний элемент. необходимо составить две разные программы на языке паскаль. , п о м о г и т

Answer 1

Const
   N = 10;
Var
   A:array[1..N] of integer;
   i,b:integer;
Begin
Write('b = ');ReadLn(b);
Write('Введите массив: ');
For i:= 1 to N do
    Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
    Begin
    A[i]:=A[i]-b;
    Write(' ',A[i])
    End;
End.

Const
   N = 10;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Write('Введите массив: ');
For i:= 1 to N do Read(A[i]);
Write('Новый массив:');
For i:= 1 to N do
    Begin
    A[i]:=A[i]-A[N];
    Write(' ',A[i])
    End;
End.