Массивы. Примеры программ

Уважаемые девятиклассники!

Для бОльшего понимания работы с массивами, публикую примеры программ с комментариями. Изучайте, вникайте, используйте!

Пример 1. Программа организует ввод и вывод элементов массива (способ 2).
Program mas;
const N = 100; { Задаем через константу количество элементов в массиве }
var a: array [1..N] of integer; i: integer; { Задаем массив содержащий целые значения и переменную i, которая будет использоваться в качестве индекса элемента массива}
   begin 
   writeln('Введите элементы массива: ');
   for i:=1 to N do read(a[i]);   { организуем в цикле ввод элементов массива. При вводе после запуска программы будем вводить значения через пробел. При этом мы не будем видеть как в "способе 1" индексы элементов, которые вводим!}
 write('Вывод элементов массива: '); 
 for i:=1 to N do write(a[i],'   ');         {Вывод элементов массива в строку через пробел}
end.

Пример 2. Программа организует заполнение массива случайными целыми числам и затем выводит элементы массива на экран.

Program mas;

const N = 20; { Как и в первом примере, задаем кол-во элементов в массиве } 

var a: array [1..N] of integer; i: integer;

begin 

    for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}

    writeln('Элементы массива: '); 

    for i:=1 to N do write(a[i],'  '); {выводим элементы массива на экран}

 end.