Question

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

Answer 1

Ответ: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.

Объяснение:

Answer 2

// PascalABC.NET 3.6

begin

 var a := ArrRandom(15, -20, 20);

 a.Println.Where(p -> p >0).Sum.Print

end.