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

Question

Информатика

Ермилий

22 октября, 04:49

Ввести массивы 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.