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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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);