Пожалуйста очень нужно подсчитать количество элементов двумерных таблицах A(n,m) и B(s,d)...

0 голосов
33 просмотров

Пожалуйста очень нужно подсчитать количество элементов двумерных таблицах 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


Информатика | 33 просмотров
0

ЯП какой или алгоритм?

Дан 1 ответ
0 голосов
Правильный ответ

Program _9;
Type marr = array [1..100,1..100] of real;
procedure p1(var x:marr;r1,r2:integer);
var i,j:integer;
begin
for i:=1 to r1 do
 begin
 for j:=1 to r2 do
  begin
   x[i,j]:=random(10);
   write(x[i,j]:4);
  end;
  writeln;
 end;
end;
function f1(var x:marr;r1,r2:integer):integer;
var i,j,k:integer;
begin
k:=0;
for i:=1 to r1 do
 for j:=1 to r2 do
   if (x[i,j]>=0)and(x[i,j]<=1) then k:=k+1;<br>f1:=k;
end;
Var a,b: marr; n,m,s,d: integer;
Begin 
randomize; 
writeln('n,m:');
readln(n,m);
writeln('Первая таблица:');
p1(a,n,m);
writeln('s,d:');
readln(s,d);
writeln('Вторая таблица:');
p1(b,s,d);
writeln('k1 = ',f1(a,n,m));
writeln('k2 = ',f1(b,s,d));
end.

(194k баллов)