Задание:
Подсчитать количество отрицательных, нулевых и положительных элементов массива с номерами позиций, кратных двум, начиная с первого. Размер носитьмассива произвольнаЯ
Решение:
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.
Знаете другой ответ?