Нужно вывести 20 рандомных чисел, и посчитать, сколько положительных, отрицательных, нулевых значений по отдельности! выводит только положительные и
5-9 класс
|
всегда пишет, что их 0. Что здесь не так? ПОМОГИТЕЕ!!!
В начале программы надо написать Randomize;
вместо 3-ех while используй один for, и 3 переменные которые запоминают числа.
вот часть программы
for i:=1 to 20 do begin
if M[i]>0 then k:=k+1;
if M[i]<0 then t:=t+1;
if M[i]=0 then n:=n+1;
end;
writeln(k,'Положительные');
writeln(t,'отрицательные');
writeln(n,'Нулевые');
Другие вопросы из категории
Читайте также
(оклад+премия-налог)где налог состовляет 13%от оклада
б) частоту употребления (отношение а к длине строки, не считая пробелов).
Примечание 1. Выводить только для маленьких русских букв, пробелы не трогать.
Пример. Вводится строка 'раз два три'. нужно вывести:
р - 2 раза, ч.у - 0.27 //Округление до сотых
... Ну и так далее. Два раза один и тот же символ не выводить!
Вводить новые переменные можно в любом количестве.
программу для Паскаль
кратен 5-ти, (в массиве лучше брать чисел 10 или 15) из кратных 5-ти нужно вывести наибольшее.. если есть вопросы по заданию - пишите! очень нужно!! надеюсь на вас!!