Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательны

[grooveone]

Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то найти максимальное среди положительных,иначе найти минимальное среди отрицательных.Определить кол-во чисел равных нулю.Огромное спасибо за помощь!!!

[Serge_Bliznykov]

несложно.
Только покажите, как Вы вводите числа?

[grooveone]

Блин,я плохо разбираюсь:DDD
Как можно вводить?))

[jihot]

Сообщение от grooveone

Блин,я плохо разбираюсь:DDD
Как можно вводить?))

ну число можно либо ввести с клавиатуры с помощью read\readln, либо считать из файла. Что ж вы не проходили такую тему ? )

\\в идеале наверно 1 массив из 4 целых чисел. и проходиться по массиву с целью найти то или иное число(макс\мин\нули)

[grooveone]

С помощью read)

[Kemperh4]

Держи

Program p1;
var m,i,kp,kn,ko:integer;
x:array[1..4] of integer;
begin
write('Введите 4 целых числа: ');
readln(x[1],x[2],x[3],x[4]);
kp:=0;kn:=0;ko:=0;

For i:=1 to 4 do
if x[i]>0 then
inc(kp) else 
if x[i]<0 then
inc(kn) else
inc(ko);

writeln('Количество положительных: ',kp);
writeln('Количество отрицательных: ',kn);
writeln('Количество нулевых: ',ko);
if kp>kn then begin
m:=0;
For i:=1 to 4 do
if x[i]>m then m:=x[i];
writeln('Максимальное среди положительных: ',m);
end else begin
m:=0;
For i:=1 to 4 do
if x[i]<m then m:=x[i];
writeln('Минимальное среди отрицательных: ',m);
end;

end.