Question

Срочно!!
Напишите программу в паскаль
Надо выполнить а)- в)

Answer 1

a)

var

 a: array [1..20] of integer;

 i, count: integer;

begin

count:=0;

 for i := 1 to 20 do

 begin

   readln(a[i]);

   if a[i] >= 0 then

     count += 1;

 end;

 writeln(count)

end.

в)

var  a: array [1..20] of integer;

 i, countplus, countminus: integer;

begin

 countplus := 0;

 countminus := 0;

 for i := 1 to 20 do

 begin

   readln(a[i]);

   if a[i] > 0 then

     countplus += 1;

   if a[i] < 0 then

     countminus += 1;

 end;

 writeln(countplus, ' ', countminus)

end.