Дано N случайных чисел в диапазоне от -3 до 3. Вычислите, сколько из них не совпадают с 0. Составить программу, используя цикл for. Для задания случайных ч исел используйте функцию random. N определяет пользователь. Числа вывес...
Дано N случайных чисел в диапазоне от -3 до 3. Вычислите, сколько из них не совпадают с 0. Составить программу, используя цикл for. Для задания случайных ч исел используйте функцию random. N определяет пользователь. Числа вывести на экран.
Гость
Ответ(ы) на вопрос:
ГостьVar a,i,n,k : integer;
Begin
randomize;
Readln(n);
for i:=1 to n do begin
a:=random(7)-3;
if a=0 then k:=k+1;
writeln(i,' число = ',a);
end;
Writeln('Количество 0: ',k);
end.
Не нашли ответ?
Похожие вопросы