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

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

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

Question

Полактия

19 декабря, 04:27

+4

Ответы (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) ;