Question

Помогите с информатикой! заранее спасибо Дано 10 чисел. Найти произведение чисел, которые больше 0. паскаль

Answer 1

Ответ:

var a:array [1..100] of integer;

var n,i,k :integer;

begin

k:=1;

for i:=1 to 10 do begin

read (a[i]);

if a[i]<10 then k:=a[i]*k;

end;

write(k);

end.

Answer 2

Конечно, я могу помочь вам написать программу на языке Паскаль для вычисления произведения чисел, которые больше 0 из заданных 10 чисел. Вот пример кода:

pascalCopy code
program ПроизведениеПоложительныхЧисел;
var
  числа: array[1..10] of real;
  i: integer;
  произведение: real;

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

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

  // Вычисляем произведение положительных чисел
  for i := 1 to 10 do
  begin
    if числа[i] > 0 then
      произведение := произведение * числа[i];
  end;

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

Скопируйте этот код в вашу среду разработки Pascal и запустите программу. Она попросит вас ввести 10 чисел, а затем вычислит произведение чисел, которые больше 0, и выведет результат.