Question

Решите плиз
В массиве а1, а2, а3 … a10 вместо отрицательных элементов запи-сать их модули и вывести на экран полученный массив. Найти сумму всех элементов преобразованного массива.

Answer 1

program f1;
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
readln(a[i]);
if a[i]<0 then a[i]:=abs(a[i]);
end;
for i:=1 to 10 do 
s:=s+a[i];
writeln(s);
for i:=1 to 10 do 
writeln(a[i]);
end.