Вот:
Код:
Const
Nmax=100;
Var
n,k,S,i,j:Integer;
a:Array[1..Nmax] of Integer;
Begin
Write('n (<100)= ');
Readln(n);
Randomize;
For i:=1 to n do
begin
a[i]:=-50+Random(100);
write(a[i]:4);
end;
Writeln;
Write('k (<',n,')= ');
Readln(k);
S:=0;
j:=0;
i:=0;
Repeat
Inc(i);
If (a[i] mod 2)<>0 then
begin
Inc(S,Abs(a[i]));
Inc(j);
end;
Until (j=k) or (i=n);
Writeln('Sum of first ',j,' absolute odds is ',S);
Readln
End.