Лабы / 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.