Запишите программу на Паскале запишите программу, которая вводит массив целых чисел А, состоящий из 20 элементов и выводит на печать 10 элемент.

Предыдущий
вопрос Следующий
вопрос

program PrintArray;

var
A: array [1..20] of Integer;
i: Integer;

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

// Вывод на печать первых 10 элементов
writeln('Первые 10 элементов массива:');
for i := 1 to 10 do
begin
writeln('A[', i, '] = ', A[i]);
end;
end.