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

Question

Информатика

Сергиян

11 сентября, 14:27

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

+4

Ответы (1)

Знаете ответ?

Наталя · 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.