Составить программу для вычисления суммы, количества и произведения n натуральных чисел.

@Aleks066 · Регистрация: 07.12.2012

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

Составить программу для вычисления суммы, количества и произведения n натуральных чисел.
Суму отрицательных количество чисел меньших 3 и произведений положительных.

Использовать циклы с параметром

Добавлено через 9 часов 35 минут
Помогите пожалуйста

@Samhain · 07.10.2013, 09:34

Aleks066,

Pascal

var x,n,s,k,p,i:integer;
begin
  s:=0;k:=0;p:=1;
  write('n = ');readln(n);
  for i:=1 to n do
    begin
      write('x[',i,'] = ');readln(x);
      if x>0 then p:=p*x
      else s:=s+x;
      if x<3 then inc(k);
    end;
  writeln('s (x<0) = ',s,', k (x<3) = ',k,', p (x>0) = ',p);
  readln
end.

@Aleks066 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 59
		1
	Составить программу для вычисления суммы, количества и произведения n натуральных чисел. 06.10.2013, 21:26. Показов 5640. Ответов 1 Метки нет (Все метки) Составить программу для вычисления суммы, количества и произведения n натуральных чисел. Суму отрицательных количество чисел меньших 3 и произведений положительных. Использовать циклы с параметром Добавлено через 9 часов 35 минут Помогите пожалуйста 0

	07.10.2013, 09:34

Опции темы

Составить программу для вычисления суммы, количества и произведения n натуральных чисел.

Решение