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

Ответ:

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.

Объяснение: