Вещественные числа в Паскале

Задание

Подсчитать, сколько среди 10 вещественных чисел отрицательных и положительных чисел.

Выбор алгоритма решения задачи

Для решения этой задачи, необходимо ввести 10 действительных значений. И подсчитать количество отрицательных и позитивных чисел.

Описание схемы алгоритма решения задачи

В данной программе необходимо объявить массив а, ввести у него и сделать два условия: 1. а[i]>0 2. а[i]<0. И подсчитать количество таких чисел.

Текст программы

program laba1;
var
a: array[1..10] of real; {massiv iz 10 chisel}
i: integer;              {nomer elementa massiva}
p: integer;              {kolichestvo polozhitelnyh chisel}
t: integer;              {kolichestvo otricatelnyh chisel}
begin
i:=1;                    {snachala i=1, t.k. nachinaem prosmotr massiva s pervogo elementa}
writeln('Vvedite elementy'); {na ekrane poyavlyaetsya stroka s prosboy vvesti elementy}
while i<=10 do               {eto cikl, kotoryy budet rabotat' do teh por, poka 'i' libo < libo = 10}
begin
readln(a[i]);            {poyavlyayetsya kursor, kotoryy zhdet, kogda my vvedem chislo
s klaviatury, eto chislo zapisyvaetsya v massiv 'a' pod nomerom 'i'}
i:=i+1;                  {zatem 'i' uvelichilos na 1, t.k. perehodim k sleduyushemu elementu massiva}
end;
t:=0;                        {obnulyayem 't', t.k. v nachale ne znayem skolko otricatelnyh elementov}
p:=0;                        {takzhe postupayem s 'p'}
i:=1;                        {nachinaem prosmatrivat massiv zanovo na nalichie polozhit. i otricat. elementov}
while i<=10 do               {opyat zavodim cikl, takoy zhe, kak i pri vvode}
begin
if a[i]>0 then           {proveryayem, element massiva pod nomerom 'i' bolshe 0 ?}
begin                  {esli da, to...}
p:=p+1;              {uvelichivaem 'p' na edinicu}
i:=i+1;              {perehodim k sleduyushemu elementu massiva}
end;                   {opyat idem na cikl 'while', t.e. na proverku, ne zakonchilis li eshe elementy v massive ?}
if a[i]<0 then           {eto budet v tom sluchae, esli element ne polozhitelnyy,
t.e. kogda smotreli 'a[i]>0'(da ili net), otvet byl net, t.e. etot element ne bolshe 0}
begin                  {esli da, to...}
t:=t+1;              {uvelichivaem 't'}

      end;                   {idem opyat na cikl}
i:=i+1;              {perehodim na sled. element}
end;                       {zdes vyhodim iz cikla, kogda proverili vse elementy massiva}
writeln('Polozhitelnyh chisel: ',p); {raspechatayem kol-vo polozh. chisel}
writeln('Otricatelnyh chisel: ',t);  {raspechatayem kol-vo otric. chisel}
readln;
end.

Результат работы программы