Программирование)))))

Question

Освежите память плиз 
Дана последовательность из N целых чисел. Определить, сколько положительных чисел расположено до К-го элемента. 
P.s. Сам знаю что простая задача) малость подзабыл паскаль просто

Александр Шишкин · Accepted Answer

m:=0; 
for i:=1 to k-1 do 
if a [ i ] > o then inc(m);

Алексей Чубыкин · Answer

Ну раз малость подзабыл. Набери в яндексе Паскаль для чайников

Queen Татьяна...... · Answer

for j:=1 to K do 
if a[j]>0 then inc(plus);