Известен рост учащихся класса. Рост мальчиков задан отрицательными числами. Определите количество девочек в классе.

Всё делать при помощи массива

Const n=10;

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

i, k: integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to n do begin

write ('a[', i,']=') ;

readln (a[i]) ;

end;

writeln;

k:=0;

for i:=1 to n do

if a[i]>0 then k:=k+1;

writeln ('k = ', k) ;

end.

Пример:

Исходный массив:

a[1]=168

a[2]=156

a[3]=155

a[4]=-176

a[5]=154

a[6]=-175

a[7]=-173

a[8]=174

a[9]=164

a[10]=-170

k = 6