profile
Опубликовано 4 года назад по предмету Информатика от flukaakoker

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

  1. Ответ
    Ответ дан orelnds
    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);