Ввод и вывод на 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.



Просмотров: 1296
10.02.2015, 10:39 -

Категория: Статьи » Программирование » Pascal

Коментарии к Ввод и вывод на Pascal: