Решенные задачи на языке Паскаль
Условие задачи - из "гостевой книги".
Создать вектор A размерности n. Сформировать вектор С, из компонент вектора А, удовлетворяющих условию: сумма A[1]+A[2]+...+A[k] <=p (p-константа).
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.