Составить программу на языке программирования паскаль, которая бы содержала бы как минимум два вложенных друг в друга цикла (циклы типа for i : = 1 to do begin end; или while х= do begin end; )

program z;

uses crt;

const n=5, m=6;

var a: array [1..n,1..m] of integer;

        i,j: integer;

begin

      clrscr;

      randomize;

 

for i: =1 to n do

begin

      for j: =1 to m do

      begin

          a[i,j]: =random(21);

          write (a[i,j]: 4);

      end;

      writeln;

end;

 

readln

end.

 

Const n=5; type mass=array[1..n] of integer; var  i,p,s: integer;             a: mass; begin        p: =1;       s: =0;         for i: =1 to n do          read (a[i]);         for i: =1 to n do        if (a[i] mod 3)=0 and (a[i]mod 2)< > 0 then                  begin                      s: =s+a[i];                     p: =p*a[i];                 end;       writeln('summ= ', s);       writeln('proizvedinie= ', p); end.

//java class main { public static void main(string[] args){ int[] a = new int[new java.util.(100)]; for (int i = 0; i < a.length; i++) a[i] = new java.util.(499)+1; for (int i = 0; i < a.length; i++) system.out.print(a[i] + " "); int b = 0; int c = 1; for (int i = 0; i < a.length; i++) if  (a[i] % 3 == 0 & & a[i] % 2 == 1 )  { b += a[i]; c *= a[i]; }system.out.print("\nsum: " + b + "\nmulti: " + c); }}проверка: $ javac main.java327 206 226 438 363 169 433 338 75 127 429 77 271 487 384 173 325 169 250 128 432 214 297 31 238 294 307 151 425 1 19 373 136 246 86 368 183 38 92 186 334 64 486 107 285 240 445 480 271 174 8 325 476 143 169 496 254 437 330 227 496 134 460 20 395 387sum:   2346multi:   936904523