6класс информатика 2018 год стр 139 1г

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив a[',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4);   for var i: =0 to m-1 do a[i,2]: =-7;   writeln(4*a.colcount*'-');   a.println(4) end. пример количество строк в массиве: 6 количество столбцов в массиве: 9 *** исходный массив a[6,9] ***   -14  34 -25  27 -48 -15  50  26 -16     8 -15 -49 -50 -44 -44  47  32  35   -32  13  19 -16 -25  41  10  39  49   -11 -35 -39 -16  26 -19  47 -11  14   -22  42  -5 -39  28 -42    9 -41  18     0 -22 -25 -15 -11    7  31  38  33   -14  34  -7  27 -48 -15  50  26 -16     8 -15  -7 -50 -44 -44  47  32  35   -32  13  -7 -16 -25  41  10  39  49   -11 -35  -7 -16  26 -19  47 -11  14   -22  42  -7 -39  28 -42    9 -41  18     0 -22  -7 -15 -11    7  31  38  33

Там где символы не понятные это разделители , 3 из 4 program task; const n=15; var a: array[1..n] of integer; i,s,j,first,max: integer; begin óñëîâèå à begin a[i]: =0+random(15); write(a[i]: 4); if(i mod 2=0) then s: =s + a[i]; end; çàäà÷à á begin a[i]: =0+random(15); write(a[i]: 4); end; writeln(); max: =1; for i: =1 to n do if a[i]> a[max] then max: =i; first: =a[1]; a[1]: =a[max]; a[max]: =first; writeln('âåêòîð: '); for i: =1 to n do çà÷à â for i: = 1 to 15 do begin a[i]: = random(20); write(a[i],' '); if a[i] > 0 then end; writeln; writeln; for i: = 1 to 14 do for j: = i+1 to 15 do if a[i] < a[j] then begin max: = a[i]; a[i]: = a[j]; a[j]: = max; end; for i: = 1 to 15 do begin write(a[i],' '); end; end.