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

Сделала еще один вариант задания

program q;uses crt;var a:array[1..100,1..100]of integer;b,n,m,i,j:integer;beginrandomize;write ('n=');read(n);write ('m=');read(m);for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=random(422)+200;write (a[i,j],' ');end;writeln;end;for i:=1 to n do beginwriteln ('b=',b);for j:=1 to m do beginif a[i,j]=b then b:=468;end;end;end. что то вроде такого,это Pascal ABC. Я то дуб в нем... Беда моя это.

Во-первых у Вас диапазон чисел от 200 до 621

Во-вторых где вывод на экран есть такое B или нет?

Зачем n раз выводить на экран "b=" ,b? Как-то все странно это

constn=10;m=7;vara:array[1..n,1..m]of integer;flag,i,j,b:integer;begin     for i:=1 to n do         begin             writeln;                 for j:=1 to m do                      begin                        a[i,j]:=random(312)-111;                        write(a[i,j]:4);                      end;            end;writeln;Writeln('B ?');readln(b);for i:=1 to n do  for j:=1 to m do      if a[i,j]=b then          flag:=1;if flag=1 then   writeln('Yes')else   writeln('N');end.вариант 2constn=10;m=7;vara:array[1..n,1..m]of integer;k,i,j,b:integer;begin     for i:=1 to n do         begin             writeln;                 for j:=1 to m do                      begin                        a[i,j]:=random(312)-111;                        write(a[i,j]:4);                      end;            end;writeln;Writeln('B ?');readln(b);for i:=1 to n do  for j:=1 to m do      if a[i,j]=b then          k:=k+1;if k<>0 then   writeln('Yes')else   writeln('N');end.