С Р О Ч Н О !!!!Задать массив, состоящий из 10 элементов, заполнить его любыми числами с...

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.

Comments

спасибо)