В заданной матрице подсчитать и вывести на экран количество элементов, попадающих в заданный интервал [a,b] и значения этих элементов

@basicfire · Регистрация: 29.04.2011

В заданной матрице подсчитать и вывести на экран количество элементов, попадающих в заданный интервал [a,b] и значения этих элементов.

Пожалуйста помогите написать!

Комментарий модератора

Дублирование тем запрещено правилами форума (п. 3.4). Не плодите одинаковых тем.

@Jazon_deenAlt · 05.05.2011, 13:04

Pascal

for i:=1 to n do 
   for j:=1 to m do // esli matrica dvymerna
      if (z[i]{[i,j] esli matrica dvymerna}>=a) and (z[i]{[i,j] esli matrica dvymerna}<=b) then begin
         writeln(z[i]{[i,j] esli matrica dvymerna});
         kolichestvo:=kolichestvo+1;
      end;
writeln(kolichestvo);

как то так

@basicfire · 05.05.2011, 13:16 **[ТС]**

Сообщение от Jazon_deenAlt

Pascal

for i:=1 to n do 
   for j:=1 to m do // esli matrica dvymerna
      if (z[i]{[i,j] esli matrica dvymerna}>=a) and (z[i]{[i,j] esli matrica dvymerna}<=b) then begin
         writeln(z[i]{[i,j] esli matrica dvymerna});
         kolichestvo:=kolichestvo+1;
      end;
writeln(kolichestvo);

как то так

Спасибо! а как это всё собрать??

Pascal

var
  i,j,n,m,z: integer;
begin
 
 for i:=1 to n do
   for j:=1 to m do // esli matrica dvymerna
      if (z[i]{[i,j] esli matrica dvymerna}>=a) and (z[i]{[i,j] esli matrica dvymerna}<=b) then begin
         writeln(z[i]{[i,j] esli matrica dvymerna});
         kolichestvo:=kolichestvo+1;
      end;
writeln(kolichestvo);
  end.

@Jazon_deenAlt · 05.05.2011, 13:27

Pascal

uses crt;
var
i,j,a,b,n,m,kolichestvo:integer;
z:array[1..100,1..100] of integer;
begin
writeln('vvedite rozmernost massiva');
readln(n,m);
randomize;
for i:=1 to n do begin
   for j:=1 to m do begin
      z[i,j]:=random(199)-99;
      write(z[i,j]:4);
   end;
   writeln;
end;
writeln;
writeln('vvedite a i b');
readln(a,b);
for i:=1 to n do
   for j:=1 to m do
      if (z[i,j]>=a) and (z[i,j]<=b) then begin
         writeln(z[i,j]);
         kolichestvo:=kolichestvo+1;
      end;
writeln('takih chisel ',kolichestvo);
readln;
end.

@basicfire · 05.05.2011, 14:03 **[ТС]**

Сообщение от Jazon_deenAlt

Pascal

uses crt;
var
i,j,a,b,n,m,kolichestvo:integer;
z:array[1..100,1..100] of integer;
begin
writeln('vvedite rozmernost massiva');
readln(n,m);
randomize;
for i:=1 to n do begin
   for j:=1 to m do begin
      z[i,j]:=random(199)-99;
      write(z[i,j]:4);
   end;
   writeln;
end;
writeln;
writeln('vvedite a i b');
readln(a,b);
for i:=1 to n do
   for j:=1 to m do
      if (z[i,j]>=a) and (z[i,j]<=b) then begin
         writeln(z[i,j]);
         kolichestvo:=kolichestvo+1;
      end;
writeln('takih chisel ',kolichestvo);
readln;
end.

БОЛЬШОЕ СПАСИБО!!! )

Опции темы