Впрограмме используется одномерный целочисленный массив а с
индексами от 0 до 4. значения элементов равны 5, 7, 6, 4, 10
соответственно, т.е. a[0] = 5, a[1] = 7 и т.д. после выполнения следующего
фрагмента программы значение а[1] равно
j: = 1
нц пока a[i] > a[i-1]
t: = a[i]
a[i]: = a[i-1]
a[j-1]: =t
j: =i+1
кц
var
number, N, npol, notr, n0, i: integer; {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}
begin
writeln('Введите N');
readln(N);
for i:= 1 to N do
begin
writeln('Введите целое число');
readln(number);
if number < 0 then notr:= notr + 1;
if number > 0 then npol:= npol + 1;
if number = 0 then n0:= n0 + 1;
end;
writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');
end.
А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.