Question

Составить программы в виде блок-схемы на языке бейсик, паскаль, алгоритм 1 Нахождение произведения всех отличных от нуля чисел из N данных чисел. 2 Нахождение суммы всех элементов и их среднего арифметического. РЯБЯТ, ПОМОГИТЕ! СРОЧНО НУЖНО!!!!

Answer 1

Что может быть частым редким и двойным

Answer 2

К сожалению, я не могу предоставить графического представления блок-схемы на языках программирования BASIC, Pascal или алгоритм формата текста.

Однако, могу привести примеры программ на языке Pascal для решения задач 1 и 2:

1. Нахождение произведения всех отличных от нуля чисел из n данных чисел:

program Multiplication;
var
  n, num, product: integer;
begin
  product := 1;
  
  write('Enter the number of values: ');
  readln(n);
  
  for var i := 1 to n do
  begin
    write('Enter a number: ');
    readln(num);

if num <> 0 then
      product := product * num;
  end;
  
  writeln('Product: ', product);
end.

2. Нахождение суммы всех элементов и их среднего арифметического:

program SumAndAverage;
var
  n, num, sum: integer;
  average: real;
begin
  sum := 0;
  
  write('Enter the number of values: ');
  readln(n);
  
  for var i := 1 to n do
  begin
    write('Enter a number: ');
    readln(num);
    
    sum := sum + num;
  end;
  
  average := sum / n;
  
  writeln('Sum: ', sum);
  writeln('Average: ', average);
end.

Эти программы считывают указанное количество чисел и выполняют соответствующие вычисления. Обратите внимание, что в примере №1 исключены числа, равные нулю, из произведения, а в примере №2 вычисляется сумма значений и их среднее арифметическое.