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.

Answer 2

Вот две программы на языке Паскаль, которые решают задачу:

Программа 1:

```pascal program IncreaseAndDecrease; var arr: array[1..10] of integer; b, i: integer; begin writeln('Введите 10 чисел:'); for i := 1 to 10 do readln(arr[i]); writeln('Введите число b:'); readln(b); writeln('Исходный массив:'); for i := 1 to 10 do write(arr[i], ' '); writeln; writeln('Массив после увеличения на число b:'); for i := 1 to 10 do write(arr[i] + b, ' '); writeln; writeln('Массив после уменьшения на последний элемент:'); for i := 1 to 10 do write(arr[i] - arr[10], ' '); writeln; end. ```

Программа 2:

```pascal program IncreaseAndDecrease; var arr: array[1..10] of integer; b, i: integer; begin writeln('Введите 10 чисел:'); for i := 1 to 10 do readln(arr[i]); writeln('Введите число b:'); readln(b); writeln('Исходный массив:'); for i := 1 to 10 do write(arr[i], ' '); writeln; writeln('Массив после увеличения на число b:'); for i := 1 to 10 do write(arr[i] + b, ' '); writeln; writeln('Массив после уменьшения на последний элемент:'); for i := 1 to 10 do write(arr[i] - arr[10], ' '); writeln; end. ```

Обе программы выполняют следующие действия: 1. Запрашивают у пользователя ввод 10 чисел с клавиатуры и сохраняют их в массиве `arr`. 2. Запрашивают у пользователя ввод числа `b`. 3. Выводят исходный массив на экран. 4. Увеличивают каждый элемент массива на число `b` и выводят результат на экран. 5. Уменьшают каждый элемент массива на последний элемент и выводят результат на экран.

Примечание: В обоих программах используется один и тот же код. Поэтому результат выполнения программ будет одинаковым.