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

@ушакова настя · Регистрация: 24.10.2010

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

help me,please!!!

@MafiaWest · 24.10.2010, 20:30

Вот примерно так,если ми вводим число елементов последовательности,и вводим значения с клавиатури

Pascal

Program aaa;
var n,i:integer; temp,sum:real;
begin
writeln('enter a size');
read(n);
sum:=0;
while (i<>n)
do
begin
read(temp) ;
if temp>0 then sum:=sum+temp;
i:=i+1;
end;
write('Suma=',sum);
end.

@ушакова настя · 24.10.2010, 20:39 **[ТС]**

спасибо

@ушакова настя 0 / 0 / 0 Регистрация: 24.10.2010 Сообщений: 18
		1
	напишите программу,которая определяет сумму всех положительных чисел вводимой последовательности из N целых чисел. 24.10.2010, 20:20. Показов 3411. Ответов 2 Метки нет (Все метки) help me,please!!! 0

@ушакова настя 0 / 0 / 0 Регистрация: 24.10.2010 Сообщений: 18
	24.10.2010, 20:39 [ТС]	3
	спасибо 0

Опции темы

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

Решение