Модуль 3, задание 6

program laba1;
var
a: array[1..10] of real; {массив из 10 чисел}
i: integer;              {номер элемента массива}
p: integer;              {количество положит чисел}
t: integer;              {количество отрицательных чисел}
begin
i:=1;                    {сначала и=1 так как идем от начала массива}
writeln('Vvedite elementy'); {на экране появляется строка с просьбой ввести элемент}
while i<=10 do               {цикл работает пока и меньше-равно 10и}
begin
readln(a[i]);            {считываем с клавиатуры число с индексом и}
i:=i+1;                  {увеличиваем и переходя к следущему элементу}
end;
t:=0;                        {обнуляем т и п}
p:=0;              
i:=1;                        {начинаем по новой просмотр массива}
while i<=10 do               {циклом проходимся по массиву}
begin
if a[i]>0 then           {проверка на положит число}
begin                
p:=p+1;              {если положительное то увеличиваем п}
i:=i+1;              {переходим к след элементу}
end;                  
if a[i]<0 then           {проверка на отрицательное число}
begin             
t:=t+1;     {если отрицательное то увеличиваем т}

i:=i+1;              

      end;                  
end;                       {прошли по всему массиву}
writeln('Polozhitelnyh chisel: ',p); {вывод количества положит чисел}
writeln('Otricatelnyh chisel: ',t);  {вывод количества отрицательных чисел}
readln;
end.