Дано N случайных чисел в спектре от -3 до 3. Вычислите,
Дано 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 lt;gt; 0 then s:=s + 1; // считаем количество чисел не совпадающих с нулем
end;
write( количество чисел не совпадающих с нулем = , s); // выводим ответ
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.