Информатика 10 класс. Решить задачу

Объяснение:

const n = 7;

var

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

begin

 var ans := 1;

 for var i := 1 to 7 do

 begin

   read(a[i]);

   ans := ans * a[i];

  end;

  for var i := 1 to 7 do

    print(a[i]);

   writeln();

   write(ans);

end.

Во вложении.

Объяснение: