Вычислить сумму положительных элементов последовательности из n произвольных чисел.

@maks.runner · Регистрация: 29.06.2011

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

не получается составить программу, помогите пожалуйста...
Условие: вычислить сумму положительных элементов последовательности из n произвольных чисел.

Pascal

var i,j,n:word;
s,k:longint;
begin
write('Введите n='); readln(n);
i:=1;
while i<=n do begin
i:=i+1;
write('k=');
readln(k);
end;
if k>0 then begin
j:=1;
s:=0;
while j<=k do begin
s:=s+j mod 10;
j:=j div 10;
end;
end;
writeln('s=', s:3);
readln;
end.

@JIomaka · 04.07.2011, 00:19

Pascal

program zd;
 
var
  i, n: Word;
  k: array [1 .. 100] of LongInt;
  s: LongInt;
 
begin
  s := 0;
  write('Введите n=');
  readln(n);
  for i := 1 to n do
  begin
    write('k=');
    readln(k[i]);
  end;
  for i := 1 to n do
    if k[i] > 0 then
      s := s + k[i];
  writeln('s=', s);
  readln;
 
end.

@Puporev · 04.07.2011, 07:10

Pascal

var i,n,k,s:integer;
begin
write('Введите n='); readln(n);
writeln('Введите ',n,' целых положительных и отрицательных чисел:');
i:=1;
while i<=n do
 begin
  write('k=');
  readln(k);
  if k>0 then s:=s+k;
  i:=i+1;
 end;
writeln('s=',s);
readln
end.

	04.07.2011, 07:10