Паскаль массив b[30] целых элементов задать датчиком случайных чисел. переписать подряд в массив а те элементы массива в, для которых справедливо: bi> (bi-1+bi+1)/2 program laboratornaya_rabota_4; var b: array[1..30,1..30] of integer; a: array[1..30,1..30] of integer; i,j,k,l: integer; begin randomize; writeln(); writeln('массив в'); writeln(); for i: = 1 to 4 do begin for j: = 1 to 4 do begin b[i,j]: =random(30); write(b[i,j],' '); end; writeln; end; writeln(); writeln('массив a'); writeln(); for k : = 1 to 4 do begin for l : = 1 to 4 do begin if b[i,j]> (b[i-1,j-1]+b[i+1,j+1])/2 then a[k,l]: =b[i,j]; write(a[k,l],' '); end; writeln; end; end.
