• Составить программу паскаль: подсчитать количество положительных и количество отрицательных элементов массива

Ответы 1

  • var  N, i, c1, c2:integer;  mas:array[1..9999] of integer;begin readln(N); for i:=1 to N do begin  readln(mas[i]);  if mas[i]>0 then   c1:=c1+1;  if mas[i]<0 then   c2:=c2+1; end; writeln('Положительных элементов: ', c1); writeln('Отрицательных элементов: ', c2);end.
    • Автор:

      tinker
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years