Создайте массив из n элементов (1 < n < 20) и найдите произведение всех его элементов. элементы массива вводятся генератором случайных чисел.

Var   a: array [1..20] of integer;   i, n: integer;   k: longint; begin   readln(n);   k : = 1;   for i : = 1 to n do   begin     a[i] : = random(10);     write(' ', a[i]);   end;   writeln();   for i : = 1 to n do     k : = k * a[i];   writeln(k); end.

Var   a: array of integer;   i, n: integer;   k: longint : = 1; begin   readln(n);   a : = new integer[n];   n -= 1;   for i : = 0 to n do   begin     a[i] : = random(10);     writeln('a[', i, '] => ', a[i]);   end;   writeln();   foreach i in a do     k *= i;   writeln(k); end.

Рассмотрим полный  условный оператор  паскаля: if  b  then  s1  else  s2 здесь  if  (если),  then  (то) и  else  (иначе) являются служебными словами,  в  – логическое выражение, а  s1  и  s2  – операторы. выполнение такого условного оператора в паскале сводится к выполнению одного из входящих в него операторов s1 или s2: если заданное в операторе условие выполняется (логическое выражение в принимает значение true), то выполняется оператор s1, в противном случае выполняется оператор s2.

Var a,b,c,r,d1,d2,d3: real; begin     writeln('введи радиус иллюминатора и размеры сундука');     readln(r,a,b,c);     d1: =sqrt(sqr(a)+sqr(b));     d2: =sqrt(sqr(a)+sqr(c));     d3: =sqrt(sqr(b)+sqr(c));     writeln('диагонали сундука: d1=', d1,' d2=',d2,' d3=',d3,' диаметр  окна: ',2*r);     if (d1< r*2)or(d2< r*2)or(d3< r*2) then writeln('сундук пройдёт') else  writeln('сундук не  пройдёт'); end.