program DoubleSumOfPositives;
van, i: integersum, a: real;
begisum := 0;
write('Введите количество элементов в последовательности: ')readln(n);
for i := 1 to n dbegiwrite('Введите ', i, '-й элемент: ')readln(a);
end;
writeln('Удвоенная сумма всех положительных элементов: ', sum * 2)end.
program DoubleSumOfPositives;
va
n, i: integer
sum, a: real;
begi
sum := 0;
write('Введите количество элементов в последовательности: ')
readln(n);
for i := 1 to n d
if a > 0 thebegi
write('Введите ', i, '-й элемент: ')
readln(a);
sum := sum + a;
end;
writeln('Удвоенная сумма всех положительных элементов: ', sum * 2)
end.