Массивы в паскале

[Pihan]

что то не доходит, считает нимнога не так, надо что бы с клавиатурры ввели нужное количество первых положительных чисел, которые будем далее умножать, вроде все сделал.... а считает не так Помогите плз

uses crt;
const n=20;
var i,kp,s,x: integer;
    a: array [1..n] of integer;
begin
randomize; clrscr; kp:=0; s:=1;
writeln('vvedite_kolichestvo');
readln(x);
for i:=1 to n do begin
a[i]:=10-random(15);
write(a[i]:3);
if a[i]>0 then  inc(kp);
   if kp=x then s:=s*a[i];
end;
writeln;
writeln(kp:4,s:3);
readkey;
end.

[ИринаForeve]

Не видно смысла в программе. Вот ошибка:

if (a[i]>0) and (kp<x) or (kp=x) then
 begin inc(kp);
 s:=s*a[i];
 end;

ну еще вывод:

writeln(kp:5,s:10);

Только в этом случае выводимое значение "кр" (зачем оно надо), будет на 1цу больше, которую в принципе можно вычесть...

[Lemo]

TC: Не мямлите пожалуйста, а норм обьясните задание, что да как должно считать, мы сдесь не екстрасенсы!