Вопрос по информатике:
Плиииз! Нужна помощь! Задан числовой массив А(50). Определить, каких элементов больше в этом массиве: положительных или отрицательных.
При решении учтите, что число 0 не относится ни к отрицательным, ни к положительным числам.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.12.2016 10:54
- Информатика
- remove_red_eye 4709
- thumb_up 12
Ответы и объяснения 1
//писал на скорую руку, должно все правильно работать
var
a,plus,minus,d:integer;
c:array[1..50] of integer;
begin
plus:=0;
minus:=0;
for a:=1 to 50 do
c[a]:=random(20)-10;//заполняем массив рандомо
for a:=1 to 50 do//проверям условие
if ((c[a]>0) and (c[a]0)) then
plus:=plus + 1
else if ((c[a]<0) and (c[a]0)) then
minus:= minus + 1;
Writeln(plus,' ');//кол-во полож
Writeln(minus,' ');//кол-во отриц
if (plus>minus)then
Writeln('Положительных')
else Writeln('Отрицательных');
end.
- 20.12.2016 19:33
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.