Задача № 238 на Pascal
Создать вектор 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.
|
