Question

Составьте программу ввода с клавиатуры элементов массива а [1..10] и вывода элементов массива на экран в столбец.

Answer 1

Var
 i: integer;
a: array [1..10] of real;
begin
for i:=1 to 10 do
begin
writeln ('введи элемент массива');
read (a[i]);
end;
for i:=1 to 10 do
writeln ((a[i]));
end.

Answer 2

Я могу помочь вам с составлением программы на языке QBasic, которая вводит с клавиатуры элементы массива а[1..10] и выводит их на экран в столбец. Вот один из возможных вариантов такой программы:

DIM a(10) AS INTEGER 'Объявляем массив a из 10 целых чисел
FOR i = 1 TO 10 'Цикл от 1 до 10
  INPUT "Введите элемент массива a(", i, "): ", a(i) 'Вводим элемент массива с клавиатуры
NEXT i 'Переходим к следующему элементу
CLS 'Очищаем экран
PRINT "Элементы массива a:" 'Выводим заголовок
FOR i = 1 TO 10 'Цикл от 1 до 10
  PRINT a(i) 'Выводим элемент массива на экран
NEXT i 'Переходим к следующему элементу
END 'Завершаем программу

Вы можете запустить эту программу в онлайн-редакторе QBasic, например, [здесь](https://www.cyberforum.ru/pascalabc/thread985937.html). Для этого вам нужно скопировать код программы в окно редактора и нажать кнопку Run. Затем вам нужно ввести 10 чисел с клавиатуры и нажать Enter после каждого числа. После этого вы увидите элементы массива на экране в столбец.

Надеюсь, что это поможет вам с решением задачи. Если у вас есть еще вопросы, я рад помочь.