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

Var  a,b,c,ap,bp,cp: real; begin read(a,b,c); if  a> 0  then ap: =a else ap: =0;   if b> 0 then bp: =b  else bp: =0;   if c> 0 then cp: =c else cp: =0; write  (ap+bp+cp); end.

Program picaso; uses crt; var a,b,c,s: integer; begin clrscr; writeln('a: '); read(a); writeln('b: '); read(b); writeln('c: '); read(c); if(a > 0) then a: =a else a: =0; if(b > 0) then b: =b else b: =0; if(c > 0) then c: =c else c: =0; s: =a+b+c; writeln(s); readln; end.

1110 (2cc) +9 (10cc) =10111 (2cc)=23 (10cc) решение: 1110 (2сс) = 2^3+2^2+2^1 =8+4+2=14 (10cc) 9 (10cc) =8+1=2^3+2^0 =1001 (2cc)   1110 +                 14 +   1001                         9                   10111 (2cc)         23 (10cc) 23 (10cc) =16+4+2+1=10111 (2cc) 1010 (2cc) -3 (10cc) = 111 (2сс) = 7 (10сс) решение: 1010 (2сс) =2^3+2^1=8+2=10 (10cc) 10-3=7 (10cc) 3 (10cc)=2^1+2^0=11 (2cc) ;   7 (10cc)=4+2+1=2^2+2^1+2^0 =111(2cc) 1010-     11   111 (2cc)

var a: array[1..1] of integer; i,k,i1,n: int64;

  begin

read(n);

  randomize;

  for i: =1 to n do

      a[i]: =random(2);

  writeln('массив до переформировки: ');

    for i: =1 to n do  

      write(a[i],' ');

  writeln;

 

for i1: = 1 to n do

  for i: =1 to n-1 do

    if a[i]> a[i+1] then begin k: =a[i]; a[i]: =a[i+1]; a[i+1]: =k; end;

     

      writeln('массив после переформировки: ');

    for i: =1 to n do  

      write(a[i],' ');

       

      end.