Заполнить и вывести на экран одномерный массив целых чисел.

Program Primer1; uses crt;
var a: array[1..5] of integer;
i: integer;
Begin
clrscr;

{******* заполнение массива c клавиатуры *******}
for i:=1 to 5 do
begin
write('a[',i,']='); readln(a);
end;
clrscr;

{***** вывод массива на экран *****}
Write(‘Массив А: ’); for i:=1 to 5 do write(a,’ ‘);

readkey;
End.

З А Д А Н И Я:

1. Набрать и исполнить программу.

2. Увеличить число элементов массива.

3. Описать размерность массива с помощью переменных.

4. Оформить программу с помощью процедуры ввода массива и процедуры вывода массива на экран.

5. Заполнить массив нулями.