Question

Составить блок-схему алгоритма и программу на Паскале для обработки массива из 15 чисел. Вычислить произведение и количество элементов, не равных нулю и больше 5. На проверку нужно прислать код программы и результат работы в виде скриншота.​

Answer 1

Ответ:

const

 n = 15;

 

var

 i, k: integer;

 p: real;

 x: array[1..n] of real;

 

begin

 k := 0;

 p := 1;

 writeln('Введите ', n, ' элементов массива: ');

 for i := 1 to n do

 begin

   readln(x[i]);

   if (x[i] <> 0) and (x[i] > 5) then

   begin

     p := p * x[i];

     inc(k);

   end;

 end;

 if k = 0 then  

   writeln('Нет искомых элементов в массиве')

 else  

   writeln('Количество искомых элементов: ', k, '; их произведение = ', p:0:3);

end.

Объяснение:

Answer 2

К сожалению, я не могу предоставить вам скриншоты, но я могу предоставить вам текстовый код на языке Pascal, который вы можете использовать для выполнения задачи. Вот программа на Pascal для обработки массива из 15 чисел, вычисляющая произведение и количество элементов, не равных нулю и больших 5:

pascalCopy code
program ArrayProcessing;

var
  arr: array[1..15] of Integer;
  i, count, product: Integer;

begin
  // Ввод элементов массива
  writeln('Введите 15 целых чисел:');
  for i := 1 to 15 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Инициализация переменных
  count := 0;
  product := 1;

  // Обработка массива
  for i := 1 to 15 do
  begin
    if (arr[i] <> 0) and (arr[i] > 5) then
    begin
      count := count + 1;
      product := product * arr[i];
    end;
  end;

  // Вывод результата
  writeln('Количество элементов, не равных нулю и больших 5: ', count);
  writeln('Произведение таких элементов: ', product);

  readln;
end.

Вы можете скопировать этот код в среду разработки Pascal (например, Free Pascal) и выполнить программу, чтобы получить результат.