Question

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

Answer 1

var

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

b,c:integer;

Begin

for b:=1 to 15 do begin

a[b]:=random(31);

write(a[b],' ');

c:=c+a[b];

end;

writeln;

writeln(c);

end.

Answer 2

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.