Ввести с клавиатуры двухмерный массив размерностью 4 х6, заполненный целыми числами. сформировать одномерный массив, каждый элемент которого оавен количеству элементов соответствующей строки, больших заданного числа n.

Program test;

var

a:array[1 ... 4,1 ... 6] of integer;

b:array[1 ... 4] of integer;

i, i1, max, n, sum:integer;

label m1;

begin

write ('Введите елементы массива: ') ;

for i:=1 to 4 do begin

for i1:=1 to 6 do begin

write ('a[', i,',', i1,'] = ') ;

readln (a[i, i1]) ;

end;

end;

for i:=1 to 4 do begin

for i1:=1 to 6 do begin

if i+i1 = 2 then max:=a[1,1]

else if a[i, i1]>max then max:=a[i, i1] else max:=max;

end;

end;

m1:

write ('Введите число (не больше ', max,') : ') ;

readln (n) ;

if n<=max then begin

for i:=1 to 4 do begin

for i1:=1 to 6 do begin

if a[i, i1]>n then sum:=sum+1;

end;

b[i]:=sum;

writeln ('b[', i,'] = ', b[i]) ;

sum:=0;

end;

end

else begin

writeln ('Число больше максимального значения массива, поробуйте снова') ;

goto m1;

end;

end.