const m=6; // строк n=9; // столбцов var a:array[1..m,1..n] of integer; i,j,k1,k2,s,k:integer; begin Writeln('Введите границы диапазона: '); Read(k1,k2); Randomize; s:=0; k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(199)-99; // [-99;99] Write(a[i,j]:4); if (a[i,j]>=k1) and (a[i,j]<=k2) then begin Inc(k); s:=s+a[i,j] end end; Writeln end; Writeln('Отобрано элементов: ',k,', их сумма равна ',s) end.