Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Нужно вывести 20 рандомных чисел, и посчитать, сколько положительных, отрицательных, нулевых значений по отдельности! выводит только положительные и

5-9 класс

всегда пишет, что их 0. Что здесь не так? ПОМОГИТЕЕ!!!

Pasha1502 16 сент. 2014 г., 15:27:10 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Merelin2014
16 сент. 2014 г., 17:25:56 (9 лет назад)

В начале программы надо написать 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,'Нулевые');

Ответить

Читайте также

Программа на Pascal ABC. С клавиатуры вводится маленькими русскими буквами строка, необходимо для каждого символа вывести, а) сколько раз его употребили и

б) частоту употребления (отношение а к длине строки, не считая пробелов).
Примечание 1. Выводить только для маленьких русских букв, пробелы не трогать.
Пример. Вводится строка 'раз два три'. нужно вывести:
р - 2 раза, ч.у - 0.27 //Округление до сотых
... Ну и так далее. Два раза один и тот же символ не выводить!
Вводить новые переменные можно в любом количестве.


Помогите пожалуйста!! срочно!!! задан массив (с помощью random или вручную,как душа пожелает) надо вывести на экран элементы массива,индекс которых

кратен 5-ти, (в массиве лучше брать чисел 10 или 15) из кратных 5-ти нужно вывести наибольшее.. если есть вопросы по заданию - пишите! очень нужно!! надеюсь на вас!!



Вы находитесь на странице вопроса "Нужно вывести 20 рандомных чисел, и посчитать, сколько положительных, отрицательных, нулевых значений по отдельности! выводит только положительные и", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.