Создать вектор A размерности n. Сформировать вектор С, из компонент вектора А, удовлетворяющих условию: сумма A[1]+A[2]+…+A[k] <=p (p-константа) - Pascal(Паскаль)

CONST
n=9;
VAR
A,C:array[1..n]of integer;
i,p,S:integer;

BEGIN
randomize;
writeln('Вектор A:');
for i:=1 to n do
 begin
  A[i]:=random(10);
  write('  ',A[i]);
 end;
writeln;
write('Введите число p = ');
readln(p);

writeln('Вектор C из элементов вектора A, сумма которых меньше ',p,':');
S:=0;
for i:=1 to n do if S+A[i]<=p then
 begin
  S:=S+A[i];
  C[i]:=A[i];
  write('  ',C[i]);
 end else break;

readln;
END.

Leave a Comment

4 + 2 =