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

Пожалуйста очень нужно подсчитать количество элементов двумерных таблицах 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
Гость
Ответ(ы) на вопрос:
Гость
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; 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы