Question

Заполнить массив из десяти элементов значениями , вводимыми с клавиатуры и вывести эти элементы в строчку через пробел ( Паскаль)

Answer 1

Const N=10;
var   mas: array [1..N] of integer;
  i: integer;
 begin 
write('Введите элементы массива: '); 
 for i:=1 to N do 
   read(mas[i]); 
write('Вывод элементов массива: '); 
 for i:=1 to N do
    write(mas[i],' ');
end.

Answer 2

Для заполнения массива из десяти элементов значениями, вводимыми с клавиатуры, и вывода этих элементов в строчку через пробел в Pascal (синтаксис Pascal/Delphi), вы можете использовать следующий код:

pascalCopy code
program InputAndOutputArray;

var
  arr: array[1..10] of Integer;
  i: Integer;

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

  // Вывод элементов массива в строчку через пробел
  writeln('Массив:');
  for i := 1 to 10 do
    write(arr[i], ' ');

  readln;
end.

Этот код создает массив arr с десятью элементами и заполняет его значениями, которые вводит пользователь с клавиатуры. Затем он выводит все элементы массива в одной строке через пробел.