Дано натуральное число n и целые числа

@Do4a · Регистрация: 20.03.2013

Author24 — интернет-сервис помощи студентам

Дано натуральное число n и целые числа b₁, b₂,...,b_n. Верно ли, что сумма чисел b_i меньше p?

@Puporev · 25.03.2013, 10:58

Pascal

uses crt;
const nmax=100;
var b:array[1..nmax] of integer;
    n,i,s,p:integer;
begin
randomize;
repeat
write('Количество чисел до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Данные числа:');
s:=0;
for i:=1 to n do
 begin
  b[i]:=random(10);
  write(b[i]:4);
  s:=s+b[i]
 end;
writeln;
writeln('Сумма=',s);
write('Введите число для сравнения p=');
read(p);
if s<p then write ('Верно что сумма меньше ',p)
else write ('Не верно что сумма меньше ',p)
end.

@Do4a 17 / 17 / 1 Регистрация: 20.03.2013 Сообщений: 66
		1
	Дано натуральное число n и целые числа 25.03.2013, 10:51. Показов 2139. Ответов 1 Метки нет (Все метки) Дано натуральное число n и целые числа b₁, b₂,...,b_n. Верно ли, что сумма чисел b_i меньше p? 0

	25.03.2013, 10:58

Дано натуральное число n и целые числа

Решение