Question

решите информатику пожалуйста пожалуйста пожалуйста пожалуйста​

Answer 1

Задача 1.

замените sum:=sum+........... на sum:=sum+m[i];

в самом конце программы опишите end.

Задача 2

1.

program Random_n;

var n, i: integer;

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

begin

for i:=1 to 8 do

begin

          a[i]:=random(10) + 1;

          write(a[i], ' ');

end

end.