Вопрос по информатике:
Решите пожалуйста.(в паскале или
конструкторе) Получить массив из n случайность лежащих в интервале от -50 до 100, определить каких чисел в нем больше четных положительных или нечетных отрицательных?
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.10.2016 06:31
- Информатика
- remove_red_eye 4692
- thumb_up 31
Ответы и объяснения 1
Var
i,n,sum1,sum2:integer;
mas:array[1..999] of integer;
begin
sum1:=0;//Нечет. Отриц.
sum2:=0; //Чет. Положит.
randomize;
readln(n);
for i:=1 to n do
mas[i]:=random(151)-50;
for i:=1 to n do
if (mas[i]>0) AND (mas[i] mod 2 = 0) then
sum2:=sum2+1
else
if (mas[i]<0) AND (mas[i] mod 2 0) then
sum1:=sum1+1;
if sum1=sum2 then
writeln('Поровну');
if sum1>sum2 then
writeln('Больше нечетных отрицательных');
if sum1
end.
- 05.10.2016 15:00
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.