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.

Answer 2

К сожалению, я не могу написать код на Pascal с использованием ввода с клавиатуры, так как мой интерфейс предоставляет только текстовые ответы. Однако, я могу предложить вам образец кода на Pascal, который вы можете использовать в своей среде разработки:

pascalCopy code
program IncreaseArrayElements;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of Integer;
  n, i: Integer;

begin
  // Ввод размера массива
  write('Введите размер массива: ');
  readln(n);

  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('arr[', i, ']: ');
    readln(arr[i]);
  end;

  // Увеличение значений всех элементов, кроме первого и последнего, на 5
  for i := 2 to n - 1 do
    arr[i] := arr[i] + 5;

  // Вывод измененного массива
  writeln('Измененный массив:');
  for i := 1 to n do
    write(arr[i], ' ');

  readln;
end.

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