Задание по информатике ​

логика, морзе, вектор, шина, дек, рунет, железо, терно, юзер, актерка(каретка) , адаптер, браузер, цифра, образ, плата, эталон, сектор(стокер), зерно, утилита, файл, гамма, щелчок, чистка, иконка, ядро, ( ( набор.

в феврале 1946 года был создан первый компьютер.

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.