Составить программу для нахождения произведения элементов массива Т из 8 элементов целого типа, заполнить его с клавиатуры и вывести на экран в строку через пробел. Язык программирования - Паскаль.

Программа:

Pascal:

const N = 8;

var

 arr: array[1..N] of integer;

 i, pr: integer;

begin

 pr := 1;

 writeln('Введите массив из ', N, ' чисел: ');

 for i := 1 to N do begin

   readln(arr[i]);

   pr := pr * arr[i];

 end;

 write('Массив: ');

 for i := 1 to N do write(arr[i], ' ');

 writeln(#13#10, 'Произведение элементов: ', pr);

end.