Задача 3 Урок 15

Задача 3 Урок 15:

У вас есть массив:

type
  myArr = array[1..8] of integer; 
var
  a: myArr;

-- целочисленный из 8 элементов.

Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #

Задача: сохранить в массив целые числа, которые ввел пользователь (до символа # или до окончания места в массиве) и вывести их на экран, значения неиспользованных ячеек массива выводить ненужно.

program u15z3;
type
  myArr=array [1..8] of integer;
var a: myArr;
    i,n: integer;
    b: char;

begin
  for i:=low(a) to high(a) do
  begin
    writeln('vvedite element massiva nomer ', i, ':');
    readln(b);
    if b='#' then
      break
    else
      a[i]:= ord(b)-48; //первод char в integer
      n:=n+1;    //для вывода нужного кол-ва символов
  end;
  for i:=1 to n do
    write(a[i], ' ');
  readln();
end.