Паскаль abc.составить программу нахождения количества целых чисел от 1 до 100 делящихся на 3 без остатка.

Program p1; const n=10; var a: array [1..n] of integer; k,i: integer; begin randomize; k: =0; for i: = 1 to n do begin a[i]: = random (100)+1; write (a[i]: 3); if a[i] mod 3=0 then k: =k+1; end; writeln; write ('количество чисел=',k); end.

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 procedure matprint(a: array[,] of integer); begin   for var i: =0 to length(a,0)-1 do begin       for var j: =0 to length(a,1)-1 do write(a[i,j]: 4);       writeln       end end; procedure matswap(a: array[,] of integer); begin   for var i: =0 to length(a,0)-1 do begin       var jmin: =0;       for var j: =1 to length(a,1)-1 do           if a[i,j]< a[i,jmin] then jmin: =j;       swap(a[i,jmin],a[i,length(a,1)-1])       end end; begin   var a: =matrixrandom(6,6,-99,99);   writeln('исходный массив');   matprint(a);   matswap(a);   writeln('результирующий массив');   matprint(a) end. тестовое решение: исходный массив   -19  88 -17  20  36 -74   40 -88  84  54  34 -86   -13 -58  62 -55 -51  80   -46 -35 -86 -57 -84 -29   10 -55 -68 -49  12  78   29 -86 -19  17 -79  61 результирующий массив   -19  88 -17  20  36 -74   40 -86  84  54  34 -88   -13  80  62 -55 -51 -58   -46 -35 -29 -57 -84 -86   10 -55  78 -49  12 -68   29  61 -19  17 -79 -86

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var a: =arrrandomreal(28,0.001,2); a.println;   writeln(newline,'p=',a.where(x-> x< 1.0).aggregate(1.0,(p,x)-> p*x)) end. тестовое решение 0.0398313784756844 0.521430412644721 1.21896472712139 1.94948843003553 1.15333909315725 0.788220413078657 0.284177359403659 1.78978303515016 0.678028235740042 1.55275635141682 0.189534365820482 0.741079475998916 1.8561824476473 1.56863753180655 1.46180190814184 0.424840159483645 1.72583213937042 1.9121896329998 1.74689281148598 1.49191368740467 0.900698237893031 0.867495573381193 1.51968024434926 1.28361295387922 0.144896066409953 0.40525055964489 0.897010715250862 1.71948831971571 p=7.74656862552087e-06