Question

Паскаль!!! Создать целочисленный массив a размера n(<10) и заполнить его с клавиатуры. Вывести на экран введенный массив и результат суммы первого и последнего элемента массива.

Answer 1

Var
A:array[1..10] of integer;
n:integer;
Begin
Write('n = ');Readln(n);
For n:= 1 to n do
    Read(A[n]);
Write('Массив: ');
For n:= 1 to n do
    Write(A[n],' ');
WriteLn;
WriteLn('Сумма первого и последнего элемента: ',A[1]+A[n]);
End.

Answer 2

Для создания целочисленного массива размера n и заполнения его с клавиатуры в Pascal, вы можете использовать следующий код:

program ArrayExample;

var
  n, i: integer;
  arr: array[1..10] of integer;

begin
  writeln('Введите размер массива (n < 10): ');
  readln(n);

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

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

writeln;
  writeln('Сумма первого и последнего элемента массива: ', arr[1] + arr[n]);

end.

В этом коде мы объявляем переменные `n` и `i`, а также массив `arr` размером 10. Затем мы запрашиваем у пользователя ввести размер массива `n` (меньше 10) и элементы массива. После этого мы выводим введенный массив на экран и вычисляем сумму первого и последнего элемента массива.

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

Надеюсь, это поможет вам создать и заполнить массив с клавиатуры в Pascal! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.