Question

СРОЧНА!!!!!ВНИМАНИЕ!!!!!БОЛЬШИЕ БАЛЛЫ!!!!!
ПОЖАЛУЙСТА,ПОМОГИТЕ!!!!!
ИНФОРМАТИКА!!!!!
БЛОК СХЕМА,ТАКЖЕ МОЖНО И ПРОГРАММНЫЙ КОД!!!!!

Answer 1

const

  n = 5;

var

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

  pr,i: byte;

begin

pr := 1;

  writeln('введите элементы массива');

  for i:=1 to n do begin

  readln(a[i]);

  pr := pr * a[i];

  end;

writeln(pr);

end.