Дан массив. Увеличить каждый положительный элемент вдвое и подсчитать их сумму

Question

Информатика

Емельянка

16 сентября, 17:34

Дан массив. Увеличить каждый положительный элемент вдвое и подсчитать их сумму

+5

Ответы (1)

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

Геша · Answer 1

Const n=10;

var a:array[1 ... n] of integer;

s, i:integer;

begin

writeln ('vvedite massiv=') ;

for i : = 1 to n do

readln (a[i]) ;

s:=0;

p:=1;

for i : = 1 to n do

if a[i]>0 then begin

s:=s+a[i];

a[i]:=a[i]*2;

end;

writeln ('s=', s) ;

readln;

end.