Question

Даны 10 чисел найти их произведение. Составить программу (на паскале)

Answer 1

Ответ:

program qq;

const n = 10;

var ms:array[1..n] of integer;

   i,mn:integer;

begin

 mn:=1;

 for i:= 1 to n do begin

   write('введите ', i, ' число ');

   readln(ms[i])

 end;

 for i:= 1 to n do

   mn:=ms[i] * mn;

writeln('множество ',mn)

end.

Объяснение:

n это кол-во чисел, которые нужно перемножить

Answer 2

Конечно, вот пример программы на Pascal для вычисления произведения 10 чисел:

pascalCopy code
program CalculateProduct;
var
  numbers: array[1..10] of real;  // Массив из 10 чисел
  product: real;  // Переменная для хранения произведения
  i: integer;

begin
  product := 1;  // Инициализируем произведение значением 1

  // Вводим 10 чисел
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;

  // Вычисляем произведение
  for i := 1 to 10 do
  begin
    product := product * numbers[i];
  end;

  // Выводим результат
  writeln('Произведение 10 чисел: ', product);
end.

Вы можете скопировать этот код в среду программирования Pascal и выполнить его, чтобы найти произведение 10 чисел. Просто введите числа по одному, как будет указано, и программа вернет вам результат.