Написать программу, в которой подсчитывается сумма

[malikon]

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

[ZX Spectrum-128]

А данные где хранятся (откуда берутся)?

[malikon]

С клавы вводятся.

[ZX Spectrum-128]

Sum:=0;
For i:=1 to 3 do
 Begin
  Readln(x);
  If x>0 then // исправил
   Sum:=sum+x;
 End;

[Serge_Bliznykov]

так устроит?

int A, B, C;
cin>>A;
cin>>B;
cin>>C;
int sum = (A>0 ? A : 0) +  (B>0 ? B : 0) + (C>0 ? C : 0);

уп-с. на раздел не обратил внимание!

тогда так:

var a,b,c, sum : integer;
begin
  readln(a,b,c);
  sum := 0;
  if a>0 then sum := sum + a;
  if b>0 then sum := sum + b;  
  if c>0 then sum := sum + c;
  WriteLn('Summa = ', sum);
end.