Предмет: Информатика,
автор: flukaakoker
Дан массив A(m), m ≤ 20.Найти сумму S его положительных элементов.
Все отрицательные элементы удвоить.
Вывести на печать исходный массив, переформированный массив и число S.
Ответы
Автор ответа:
0
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);
begin
if (-a[m]<>a[m]) then s:=s+1;
else a[m]:=a[m]*2;
writeln(a[m],' ');
end;
writeln(s);
Интересные вопросы
Предмет: Математика,
автор: annyta9900aqnes
Предмет: История,
автор: anyakkirillova04
Предмет: Математика,
автор: sasasasasas222
Предмет: Математика,
автор: Мадиненок
Предмет: Математика,
автор: cipo4ka