Дан массив A (m), m ≤ 20. Найти сумму S его положительных элементов.

Все отрицательные элементы удвоить.

Вывести на печать исходный массив, переформированный массив и число S.

Question

Бонифатий

2 февраля, 14:45

+5

Ответы (1)

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

Виринея · Answer 1

For i:=1 to m do

begin

if (-a[m]a[m]) then s:=s+1;

else a[m]:=a[m]*2;

writeln (a[m],' ') ;

end;

writeln (s) ;