Дан массив a из n целых чисел. требуется посчитать - вопрос №6151361 от rekrut234 22.07.2021 07:02

Question

Информатика: Дан массив a из n целых чисел. требуется посчитать количество положительных элементов и количество отрицательных элементов. формат входных данных на первой строке входного файла записано натуральное число nn (n≤100)(n≤100) — число элементов в массиве. на следующей строке через пробел записаны целые числа aiai (|ai|≤1000)(|ai|≤1000) — элементы массива aa. формат выходных данных требуется через пробел вывести два числа — количество положительных и количество отрицательных элементов массива. примеры

rekrut234 · Answer

Var
i, c, k, n: integer;
ar: array[1..10000]of integer;

begin
c := 0;
k := 0;
readln(n);
for i := 1 to n do
begin
read(ar[i]);
if (ar[i] > 0) then c := c + 1;
if (ar[i] < 0) then k := k + 1;
end;
write(c, ' ', k);
end.