Вводится массив, состоящий из целых чисел. Обусловьте, сколько из них положительные.ВХОДНЫЕ

Вводится массив, состоящий из целых чисел. Обусловьте, сколько из их положительные.
ВХОДНЫЕ ДАННЫЕ

Сначала задано число N количество частей в массиве (1N35). Дальше через пробел записаны N чисел элементы массива. Массив состоит из целых чисел.
ВЫХОДНЫЕ ДАННЫЕ

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

ВВОД ВЫВОД
3
1
-2
0
1

Задать свой вопрос
Аля Йозеф
упс просто 1 N 35
Денис Панкратенков
а 1 олжен быть в ВЫВОД
1 ответ
Program n1;
var n, k, i, c : integer; a:array[0..35] of integer;
begin
  read(N);
  if (Ngt;=1)and(Nlt;=35) then c:=n
  else
    begin
      writeln('error');
      read(N);
    end;
  for i:=1 to c do
    begin
      read(a[i]);
      if A[i]gt;0 then k:=k+1;
    end;
  writeln(k);
end.


Как то так
программка была скопирована из компилятора и там работала по условию
Сердинов Женек
program n1; var n, k, i: integer; a:array[1..35] of integer; begin repeat begin write('Введите (1<=N<=35) >>> '); read(n); end; until (n>=1)and(n<=35); for i:=1 to n do begin read(a[i]); if A[i]>0 then k:=k+1; end; writeln('количество положительных элементов массива [',k,']');end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт