Вопрос по информатике:
Заполните одномерный массив случайными целыми числами: положительными, отрицательными, нулями. Определите, на сколько положительных чисел будет больше, чем отрицательных.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.11.2015 04:33
- Информатика
- remove_red_eye 16132
- thumb_up 34
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var d:=a.Where(t->t>0).Count-a.Where(t->t<0).Count;
if d>0 then
Writeln('Положительных чисел на ',d,' больше, чем отрицательных')
else
if d<0 then
Writeln('Положительных чисел на ',-d,' меньше, чем отрицательных')
else
Writeln('Положительных и отрицательных чисел поровну')
end.
Пример
n= 15
-9 -46 -40 14 -40 40 -2 31 50 50 13 50 -20 -11 41
Положительных чисел на 1 больше, чем отрицательных
- 11.11.2015 18:46
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.