Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-2,2} и находит произведение ненулевых элементов.

//pascalabc.net //версия 3.3.5, сборка 1650 begin var a: =arrrandom(10,-2,2).println.where(x-> x< > 0); write('произведение ненулевых элементов: ',a.aggregate(real(,b)-> a*b)); end.

Const n=10; var a: array [1..n] of integer; i,p: integer; begin for i: =1 to n do a[i]: =random(-2,2); writeln (a); p: =1; for i: =1 to n do if a[i]< > 0 then p: =p*a[i]; writeln (p) end.

 

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

бег - бог - бок - бак - мак - маг -шаг