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

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

Задать свой вопрос
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 gt; 0 then p := p + 1
    else
    if a lt; 0 then n := n + 1
  end;
  if p gt; n then writeln('Положительных') else
  if p lt; 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 gt; 0) - ord(a lt; 0))
  end;
 if s gt; 0 then writeln('Положительных') else
 if s lt; 0 then writeln('Отрицательных') else
 writeln('Идиентично')
end.   

Люда Краско
Ты можешь по-другому вторую часть написать а то мы такие знаки не проходили
Анна Стоянович
2-ая часть? Какие знаки?
Алена Овосанова
If p gt
Тимур
Нпонял че это
Варвара Зызюк
Означает, у вас как-то ошибочно отображается текст. Там стоят знаки "больше" (>) и "меньше" (<). Если p больше n, то ... И если p меньше n, то ...
Grishhaev Oleg
Спасибо сообразил
Egor Dashevich
А вот ещё можно сделать не с 2-мя ифами а как-то потруднее
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт