Delphi-Help

Главная Статьи Массивы Задача № 238 на Pascal

Задача № 238 на Pascal

Оцените материал
(0 голосов)


Задача № 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.
Прочитано 4137 раз
Другие материалы в этой категории: « Задача № 235 на Pascal Задача № 239 на Pascal »

Авторизация



Счетчики