Program Drob_0_55; uses Crt; const m=5; n=6; type Mat=array[1..m, 1..n] of real; var A: Mat; i,j: integer; frc: real; flag: boolean;
begin ClrScr; Randomize; {Датчик СЧ} for i:=1 to m do {Цикл ввода и вывода массива} begin for j:=1 to n do begin A[i,j]:=(10+random(70))/100; Write (A[i,j]:6:2); end; WriteLn; end;
for i:=1 to m do {Поиск} begin flag:=false; for j:=1 to n do begin frc:=frac(A[i,j]); if frc>0.55 then flag:=true; end; if flag then Writeln('‘Строка: ', i); end; if flag=false then WriteLn('Не найдено!'); ReadLn; {Ожидание нажатия ENTER} end. f
