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

@Eлена · Регистрация: 06.11.2013

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

Здравствуйте.Помогите пожалуйста написать программу на паскале.
Оператор условной передачи управления
Если количество положительных чисел больше, чем отрицательных, то найти наибольшее среди отрицательных, иначе наибольшее среди положительных. Посчитать количество нулевых чисел.
Спасибо!

@Arigato · 14.12.2013, 20:42

Pascal

var
  a, max1, max2, zero, poloj: Integer;
  i: Integer;
 
begin
  zero := 0;
  poloj := 0;
  max1 := low(a);
  max2 := low(a);
  for i := 1 to 4 do begin
    ReadLn(a);
    if (a < 0) and (a > max1) then
      max1 := a;
    if (a >= 0) and (a > max2) then
      max2 := a;
    if a = 0 then
      inc(zero);
    if a >= 0 then
      inc(poloj);
  end;
  if poloj > 2
    then WriteLn(max1)
    else WriteLn(max2);
  WriteLn(zero);
  ReadLn;
end.

@Eлена · 14.12.2013, 22:46 **[ТС]**

спасибо большое

@Eлена 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 16
		1
	Найти количество положительных чисел среди четырёх целых чисел 14.12.2013, 18:45. Показов 2546. Ответов 2 Метки нет (Все метки) Здравствуйте.Помогите пожалуйста написать программу на паскале. Оператор условной передачи управления Если количество положительных чисел больше, чем отрицательных, то найти наибольшее среди отрицательных, иначе наибольшее среди положительных. Посчитать количество нулевых чисел. Спасибо! 0

@Eлена 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 16
	14.12.2013, 22:46 [ТС]	3
	спасибо большое 0

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

Решение