Последовательности чисел. Найти сумму и произведение отрицательных двузначных чисел

@Павел Олегович1 · Регистрация: 25.12.2012

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

Вводится 25 чисел. найти сумму и произведение отрицательных двузначных чисел

@Павел Олегович1 · 28.12.2012, 17:34 **[ТС]**

пожалуйста помогите время поджимает

HighPredator · 28.12.2012, 17:49

Pascal

const
  N=25;
 
var
  i:integer;
  a:integer;
  s,p:integer;
 
begin
  s:=0;
  p:=1;
  for i:=1 to N do
  begin
    readln(a);
    if (a>=--99) and (a<=-10) then
    begin
      s:=s+a;
      p:=p*a;
    end;
  end;
  writeln('s=',s,' p=',p);
  readln;
end.

@Павел Олегович1 0 / 0 / 0 Регистрация: 25.12.2012 Сообщений: 7
		1
	Последовательности чисел. Найти сумму и произведение отрицательных двузначных чисел 25.12.2012, 18:47. Показов 2388. Ответов 2 Метки нет (Все метки) Вводится 25 чисел. найти сумму и произведение отрицательных двузначных чисел 0

@Павел Олегович1 0 / 0 / 0 Регистрация: 25.12.2012 Сообщений: 7
	28.12.2012, 17:34 [ТС]	2
	пожалуйста помогите время поджимает 0

	28.12.2012, 17:49

Опции темы