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

Question

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

Answer 1

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.

Comments

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.

---

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