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

@grooveone · Регистрация: 03.12.2013

Author24 — интернет-сервис помощи студентам

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

@newyork7776 · 04.12.2013, 00:59

Pascal

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array [1..4] of Integer;
    i,p,np,null,min,max:Integer;
begin
p:=0;np:=0;null:=0;
 for i:=1 to 4 do
  begin
    Write('Enter ',i,' number = ');Readln(mas[i]);
    if (i=1) then begin min:=mas[1];max:=mas[1];end
    else
      begin
        if ((mas[i]>0) and (max<=mas[i])) then max:=mas[i];
        if ((mas[i]<0) and (min>=mas[i])) then min:=mas[i];
      end;
    if (mas[i]>0) then Inc(p);
    if (mas[i]=0) then Inc(null);
    if (mas[i]<0) then inc(np);
  end;
  if (p>np) then Writeln('+ = ',p,'     - = ',np,'   Answer = ',max)
  else Writeln('+ = ',p,'     - = ',np,'   Answer = ',min);
  Writeln('0 = ',null);
readln;
end.

будут проблеми удалить 2-3 строку

@grooveone 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 24
		1
	Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то найти максималь 03.12.2013, 21:12. Показов 3020. Ответов 1 Метки нет (Все метки) Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то найти максимальное среди положительных,иначе найти минимальное среди отрицательных.Определить кол-во чисел равных нулю.Огромное спасибо за помощь!!! 0

	04.12.2013, 00:59

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

Решение