Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры. помогите(

program mas;
cоnst n=5;
var
a:array[1..n] of integer;
i,t:integer;
begin
writeln('Введите ',n,' елементов массива');
for i:=1 to n do readln(m{i});
t:=1;
for i:=2 to n do t:=t*m{i};
write('вывод массива: ');
for i:=1 to n do write(m{i},' ');
writeln('Результат произведения элементов массива: ',t);
readln;
end.

первый вариант написали правильно

Антон Назаров вы тупо копировали его код и заменили переменные причем не до конца и испортили код.
Зачем вы переименовали массив М в А?
а ниже то забыли переименовать?
а почему это т=1?
допустим у нас 3 елемента массива 15 65 89
мы их перемножаем со 2 елемента, при этом 1 елемент пишем в Т 10*65*89
а вы так перемножаете 1*65*89
а первый элемент массива куда дели?
Первый ответ правильный!

uses crt ;
type
massiv = array [1..100] of integer;
var
mass : massiv;
n, i, proiz : integer;
begin
clrscr; // очищаем экран
write('Введите кол-во элементов массива : '); readln(n);
proiz := 1 ;
for i:=1 to n do
begin
write('Введите ', i , ' число : '); readln(mass[i]);
proiz := proiz * mass[i];
end;
writeln('Произведение массива из ', n , ' элементов = ', proiz);
readln; // чтобы программа не закрывалась
end.