Дано N случайных чисел в спектре от -3 до 3. Вычислите,

program zz1;

var n, i, a, s:integer; // вводим переменные целого типа

begin

write( введите число n );  // вводим с клавиатуры число

read(n);

for i:=1 to n do  // организуем цикл на n повторений

begin

a:=random(7)-3; // получаем случайное число в данном спектре

write(a, ); // выводим на экран приобретенные числа через пробел

if a lt;gt; 0 then s:=s + 1; // считаем количество чисел не совпадающих с нулем

end;

write( количество чисел не совпадающих с нулем = , s); // выводим ответ

end.