Решите пожалуйста.(в паскале или

5-9 класс

конструкторе) Получить массив из n случайность лежащих в интервале от -50 до 100, определить каких чисел в нем больше четных положительных или нечетных отрицательных?

Angelina6699 15 апр. 2014 г., 1:01:24 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Emailmadambe

15 апр. 2014 г., 3:57:20 (10 лет назад)

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<sum2 then
writeln('Больше четных положительных');
end.

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

Джидай / 11 апр. 2014 г., 19:51:58

1. Запишите в традиционной математической форме (при записи нельзя использовать трех- и четырехэтажные дроби) : а) C2/(A5+3) б) A1*A2/(D12/D2*D3) в)

F4^3*A4 .

1. Придумайте и сформулируйте условие задачи, для решения которой можно использовать следующую ЭТ

A B
1 15 =A1/A4*100
2 30 =A2/A4*100
3 10 =A3/A4*100
4 =A1+A2+A3