Определить, имеется ли в двумерном целочисленном массиве, заданном с помощью генератора случайных чисел в диапазоне (-111;200) значение элемента равное B?

Var a:array [1..30,1..30] of integer;
i,j,n,m,b:integer;
find:boolean;
begin
randomize;
writeln(введите размерность матрицы );
readln(n,m);
writeln(введите число b );
readln(b);   find:=false;
for i:=1 to N do
for j:=1 to M do
begin
  a[i,j]:=-110+random(200);
    if a[i,j]=b then
     begin
       writeln(Элемент в массиве ,a[i,j]:5,  =,b:5); find:=true;
        exit; {остальные эл-ты не рассм.}
   end
end;
if find=false then writeln(элемент не найден);
end.

{2 Способ}
var a:array [1..30,1..30] of integer;
i,j,n,m,b:integer;
find:boolean;
begin
randomize;
writeln(введите размерность матрицы );
readln(n,m);
writeln(введите число b );
readln(b);   find:=false;
for i:=1 to N do
begin
for j:=1 to M do
   begin
  a[i,j]:=-110+random(200); write (a[i,j]:7);
  end;
  writeln;
  end;
for i:=1 to N do
  for j:=1 to M do
  if a[i,j]=b then
      begin
       writeln(Элемент в массиве ,a[i,j]:5,  =,b:5); find:=true;
        exit; {остальные эл-ты не рассм.}
   end;
if find=false then writeln(элемент не найден);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Найти другие ответы