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

@Kreverko · Регистрация: 21.05.2013

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

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

@Puporev · 21.05.2013, 14:50

Pascal

uses crt;
var n,i,a,s:integer;
begin
write('n>0 n=');
read(n);
writeln('Введите ',n,' целых цисел');
s:=0;
for i:=1 to n do
 begin
  read(a);
  if a>0 then s:=s+a;
 end;
write('Сумма положительных чисел=',s)
end.

@Kreverko 0 / 0 / 0 Регистрация: 21.05.2013 Сообщений: 6
		1
	Вводится последовательность из N целых чисел. Найти сумму положительных чисел. 21.05.2013, 14:41. Показов 19541. Ответов 1 Метки нет (Все метки) Вводиться последовательность из N целых чисел. Найти сумму положительных чисел. 0

Опции темы

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

Решение