Подсчитать количество отрицательных…

Question

Подсчитать количество отрицательных, нулевых и положительных элементов массива с номерами позиций, кратных двум, начиная с первого. Размер носитьмассива произвольнаЯ

Answer 1

46

kosteg

09 апреля 2023

Var a: array [1… 1000] of integer; i, n, z, p, m: integer; begin i: =0; while not eoln do begin read (z); inc (i); a[i]: =z; end; m: =i; n: =0; z: =0; p: =0; for i: =1 to m do if i mod 2=0 then begin if a[i] <= then inc (n) else if a[i] > 0 then inc (p) else inc (z); end; writeln (n, ', z, ', p); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: