Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- var
- w: array[0..1000] of integer;
- i,N,P,K,sum: integer;
- begin
- sum:= 0;
- writeln('N=');
- readln(N);
- writeln('K=');
- readln(K);
- inc(K);
- writeln('P=');
- readln(P);
- for i := 0 to N-1 do
- begin
- w[i]:= Random(k);
- writeln(w[i]);
- if w[i]<K then
- begin
- if (sum + w[i]) < P then
- begin
- sum:= sum + w[i];
- end;
- end;
- end;
- writeln('sum = ', sum);
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement