Ввести массивы Z [0..3] и A [0..3] . Найти сумму дробных положительных элементов введенных массивов.

program massiv; uses crt; var i,s:integer; mas:array[1..10] of integer; begin clrscr; writeln; for i:=1 to 10 do begin write('введите ',i,'элемент '); readln(mas); end; writeln; writeln; for i:=0 to 9 do if mas>0 then s:=s+mas; writeln('сумма положительных элементов массива = ',s); readln end.

необходимо найти сумму ДРОБНЫХ положительных

program tasc1; Var i,sum : integer; a: array [1..10] of integer; begin writeln ('input array '); for i:=1 to 10 do begin write ('a(',i,')='); readln (a[ i ]); end; sum:=0; for i:=1 to 10 do sum:=sum+a[ i ]; writeln ('sum=',sum); end.