Одномерный массив из n элементов заполнен случайными числами (n> 10 сформировать из него матрицу, содержащую по 4 элемента в строке. недостающие элементы в последней строке (если будут) заполнить нулями.

Program gt; var n,i: integer; a: array[1..1000]of integer; begin randomize; read(n); for i: =1 to n do a[i]: =random(40)-20; for i: =1 to n do begin write(a[i]: 4,' '); if(i mod 4=0)then writeln; end; for i: =1 to 4-n mod 4 do write(0: 4,' '); end.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   if n> 10 then begin writeln('n> 10'); exit end;   var a: =readarrinteger(n);   writeln(10*'-');   var b: =a.where(k-> k.iseven or (k mod 13=;   var m: =0;   for var i: =0 to b.count-2 do       for var j: =i+1 to b.count-1 do           if (b[i]*b[j]) mod 26=0 then begin               println(b[i],b[j]); m+=1               end;   if m=0 then writeln('no') end. пример n= 6 29 38 16 39 41 7 38 39 16 39

Var     a: array[1..10] of integer;     i,j,n,k: integer; begin write('n = '); readln(n); write('введите массив a(',n,'): '); for i: = 1 to n do       read(a[i]); k: =0; for i: = 1 to n do       for j: = i+1 to n do               if (a[i]*a[j]) mod 26 = 0 then                       begin                       writeln(a[i],' ',a[j]);                       k: =1;                       end; if k=0 then writeln('no') end.