Заполните массив 15 числами от -20 до 20. Найдите сумму положительных элементов массива. Вывести на экран массив, а затем сумму. ​​

ответ:program xxx;

  var i, n : integer;

           s : real;

          a : array [1..20] of real;

begin

 writeln('введите размерность массива n=');

 readln(n);

 write('введите элементы массива А:');

 for i:=1 to n do

    readln(a[i]);

 writeln('исходный массив А:');

 for i:=1 to n do

    writeln(a[i]);

 s:=0;

 for i:=1 to n do

   if a[i]> 0 then s:=s+a[i];

 writeln('сумма положительных элементов =', s);

 readln

end.

Объяснение:

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)

если для каждого из 3 символов возможны 3 варианта, то общее число слов    3³ = 27