Question

Дан массив А размерностью 15. Заполните его случайными числами от 0 до 30. Выведите на экран элементы массива и их сумму. Pascal

Answer 1

program fantscrin;

   const n =15;

   var i,s:integer;

       a: array [1..n] of integer;

begin

    for i:=1 to n do

       a[i]:=random(30);  

    for i:=1 to n do

       write(a[i], '  ');

    writeln('');

    s:=0;

    for i:=1 to n do

       s:=s+a[i];

    writeln(s);

end.