{* Задача 363 *}

Unit ZADACH363;
Interface
Implementation
Begin
 writeln('По заданной последовательности x1,x2,…xn(n<=40) построить последовательность y1,y2,…,ym, исключив из заданной последовательности нулевые элементы. Определить количество оставшихся элементов');
End.

Program zadach363;

Uses zadach363.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  x : Array [1..40] Of integer;
  y : Array [1..40] Of integer;
  i : integer;
  N : integer;
  k : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите кол-во элементов N ');
  readln(N);
  randomize;
  For i := 1 To N Do {* Увеличиваем i от 1 до N с шагом 1 *}
  Begin
    x[i] := random(10) - 5;
    write(' ', x[i] : 2);
  End;
  writeln; {* Пропускаем одну строку *}
  k := 1;
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
  Begin
    If x[i]0 Then
    Begin
      y[k] := x[i];
      write(' ', y[k] : 2);
      k := k + 1;
    End;
    
  End;
  writeln; {* Вывод пустой строки *}
  writeln('Кол-во элементов k=', k - 1);
  readln
End.