Задача: Вивести числа 12 8 4, використовуючи цикл Repeat Задача: Знайдіть мінімальне число, яке менше за 100 та кратне 15. в Pascal ABC

var

  a : array of integer;

  n, i, last : integer;

begin

  read (n);

  setlength (a, n);

  for i := 0 to n - 1 do

    read (a[i]);

  last := 0;

  for i := 0 to n - 1 do

    if a[i] <> 0 then

    begin

      a[last] := a[i];

      inc (last);

    end;

  setlength (a, last);

  for i := 0 to last - 1 do

    write (a[i], ' ');

end.

 

Суть такова. Имеем динамический массив. Считали массив, так как динамический, то от нуля все. Установили последнюю свободную ячейку 0. Идем по массиву и ищем ненулевое значение. Как только нашли, пишем его в свободную ячейку и увеличиваем занчение свободной ячейки на 1. При этом наши данные не затираются. После окончания всех операций в last лежит длина массива.

Статитечкий массив. 

var

  a : array [1..100] of integer;

  n, i, last : integer;

begin

  read (n);

  for i := 1 to n do

    read (a[i]);

  last := 1;

  for i := 1 to n do

    if a[i] <> 0 then

    begin

      a[last] := a[i];

      inc (last);

    end;

  dec (last);

  for i := 1 to last do

    write (a[i], ' ');

end.

 

var

  a : array [1..100] of integer;

  n, i : integer;

  flag : boolean;

begin

  write ('Введите количество чисел: ');

  readln (n);

  for i := 1 to n do

  begin

    write (i, '-ое число = ');

    readln (a[i]);

  end;

  for i := 1 to n do

  begin

     write (i, '-оечисло  ');

    if a[i] < 0 then

    begin

      write ('отрицательно');

      flag := true;

    end;  

   if a[i] mod 2 = 0 then

    begin

      write ('четно');

      flag := true;

    end;

    if not flag write ('никакое');

    flag := false;

    writeln;

end;

end.