Лабы / Pascal.1.курс / part 1 / variant 14 / lab8

program lab8;
uses crt;
const
   im=7;
   jm=3;
   range=5;
type
   matrix=array [1..im,1..jm] of real;
   masiv=array [1..im*jm] of real;
var
   b,d: matrix;
   y,z: masiv;
   r: real;

procedure initmatrix(var m:matrix);
var
   i,j:integer;
   a,b,c:real;
begin
   for i:=1 to im do begin
      for j:=1 to jm do begin
         c:=0;
         a:=random(100);
         b:=random(100);
         if b<>0 then c:=a/b;
         m[i,j]:=-range+random(range*2)+c;
         write(m[i,j]:5:2,'  ');
      end;
   writeln;
   end;
end;

procedure formmasiv(var m:masiv;a:matrix;r:real);
var
   i,j,k:integer;
begin
   k:=1;
   for i:=1 to im do begin
      for j:=1 to jm do begin
         if a[i,j]<r then begin
            m[k]:=a[i,j];
            write(m[k]:5:2,' ');
            k:=k+1;
            if k=11 then writeln;
         end;
      end;
   end;
   writeln;
end;

begin
   clrscr;
   randomize;
   write('input R: ');readln(r);writeln;
   initmatrix(b);writeln;
   initmatrix(d);writeln;
   formmasiv(y,b,r);writeln;writeln;
   formmasiv(z,d,r);writeln;writeln;
   writeln('press <enter> to exit');readln;
end.