Ввод и вывод массива (Pascal)

matvey343

массивы 17 апреля 2016

Заполнить массив с клавиатуры и вывести все его элементы.

Исходный код на языке Pascal

const Sz = 100; // Размер массива
 
var 
  a: array [1..Sz] of integer;
  N: integer; // Количество элементов в массиве
  i: integer;
 
begin
  write('Введите количество элементов в массиве: ');
  readln(N);
  write('Введите элементы массива: ');
  for i:=1 to N do
    read(a[i]);
  write('Вывод элементов массива: ');
  for i:=1 to N do
    write(a[i],' ');
end.