Экономика
пожалуйста очень нужно подсчитать количество элементов двумерных таблицах A(n,m) и B(s,d) принадлежащих отрезку [0,1] Программа паскаль
Program _9;Type marr = array [1..5,1..5] of real;Var mat1,mat2: marr; i, j,k,m: integer;Begin randomize; for i := 1 to 5 do for j := 1 to 5 do begin mat1[i,j]:=random(10)*random-3; mat2[i,j]:=random(10)*random-3; end; writeln('Первая таблица:'); for i := 1 to 5 do begin for j := 1 to 5 do write(mat1[i,j]:2:2,' '); writeln; end; writeln('Вторая таблица:'); for i := 1 to 5 do begin for j := 1 to 5 do write(mat2[i,j]:2:2,' '); writeln;end; end.нужно посчитать элементы которые находятся в интервале от 0 до 1
