Вычислить произведение всех элементов одномерного массива в, в котором 20 элементов.

Const n=20; var b: array[1..n] of integer; i,s: integer; begin  randomize;   for i: =1 to n do   begin    b[i]: =random(10);     write(b[i],' ');     end;     s: =1;     for i: =1 to n do    begin       s: =s*b[i];     end;   writeln;     writeln('произведение элементов:   ',s); end.

Program pas; var b: array[1..20] of integer; i, k: integer; begin k: =1; for i: =1 to 20 do readln(b[i]); for i: =1 to 20 do k: =k*b[i]; writeln(k); end.

Var a,s1,s2: integer; begin read (a); if (a> =1000)and (a< =9999)then begin s1: =(a mod 10) + ((a mod 1000) div 100); s2: =(a div 1000) + ((a mod 100) div 10); if (s1> s2)then writeln ('сумма цифр,стоящих на четных местах больше суммы цифр, стоящих на нечетных местах'); if (s1< s2)then writeln ('сумма цифр,стоящих на нечетных местах больше суммы цифр, стоящих на четных местах'); if (s1=s2)then writeln ('сумма цифр,стоящих на четных местах равна сумме цифр, стоящих на нечетных местах'); end else writeln ('вы ввели не 4-ёхзначное число'); end.

1. uses crt; const n=5; var i,j,ans: integer; a: array[1..n,1..n] of integer; begin randomize; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(5,10); write(a[i,j],' '); end; writeln(); end; for i: =1 to n do begin ans: =0; for j: =1 to n do begin if a[i,j]> 7 then ans: =ans+1; end; writeln('in ',i,': ',ans); end; end.2.uses crt; const n=3; var i,j,t: integer; a: array[1..n,1..n] of integer; beginwriteln('input array: '); for i: =1 to n dofor j: =1 to n doread(a[i,j]); for j: =1 to n dobegint: =a[1,j]; a[1,j]: =a[3,j]; a[3,j]: =t; end; for i: =1 to n dobeginfor j: =1 to n dowrite(a[i,j],' '); writeln(); end; end.