Программа ввода элементов одномерного массива (линейной таблицы) заданной размерности N (N <= 100).

Program N16 (Input, Output);          

Объявление имени программы

Var         

Блок объявления глобальных переменных

X             : Array [1..100] Of Integer;

Переменная X - целочисленный массив из 100 элементов

N             : Integer;              

Переменная N - размерность массива

i               : Integer;              

Переменная i - параметр цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Ввод элементов одномерного массива.');           

Формулировка цели алгоритма

Write ('Введите размерность N массива (N<=100): ');               

Запрос ввода N - размерности массива

ReadLn (N);         

Ввод N

WriteLn ('Введите элементы:');      

Запрос ввода элементов самого массива

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередного элемента

Begin    

Начало тела цикла

Write ('X[', i, '] = ');             

Вывод удобной подсказки

ReadLn (X[i]);     

Ввод очередного элемента - X[i]

End;      

Конец тела цикла

WriteLn ('Ввод закончен.');             

Сообщение пользователю об успешном вводе массива

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.