Дано N случайных чисел в диапазоне от - 3 до 3. Вычислите, сколько из них не совпадают с 0. Составить программу, используя цикл for. Для задания случайных ч исел используйте функцию random. N определяет пользователь. Числа вывести на экран.

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 0 then s:=s + 1; / / считаем количество чисел не совпадающих с нулем

end;

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

end.