Нужно написать программу ** языке Паскаль условие такое: вводится 15 чисел определить...

Question

Нужно написать программу на языке Паскаль условие такое:
вводится 15 чисел определить каких чисел кратных трём больше положительных или отрицательных

Answer 1

Var a,p,n,i:integer;
begin
 p := 0;
 n := 0;
 for i := 1 to 15 do
  begin
  read(a);
  if a mod 3 = 0 then
    if a > 0 then p := p + 1
    else
    if a < 0 then n := n + 1
  end;
  if p > n then writeln('Положительных') else
  if p < n then writeln('Отрицательных') else
    writeln('Одинаково')
end.



{вариант "как-то посложнее"}

var a,i,s:integer;
begin
 s := 0;
 for i := 1 to 15 do
  begin
  read(a);
  s := s + ord(a mod 3 = 0) * (ord(a > 0) - ord(a < 0))
  end;
 if s > 0 then writeln('Положительных') else
 if s < 0 then writeln('Отрицательных') else
 writeln('Одинаково')
end.   

Comments

Ты можешь по-другому вторую часть написать а то мы такие знаки & не проходили

---

Вторая часть? Какие знаки?

---

If p& gt

---

Нпонял че это

---

Значит, у вас как-то неправильно отображается текст. Там стоят знаки "больше" (>) и "меньше" (<). Если p больше n, то ... И если p меньше n, то ...

---

Спасибо понял

---

А вот ещё можно сделать не с двумя ифами а как-то посложнее