Дано масив рядків: "блок, файл', 'біт, 'ко- лонка, 'миша. Розробіть програму пошуку максимального і мінімального значень еле- ментів.

Const
n=10;m=7;
var
a: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.

вариант 2
const
n=10;m=7;
var
a: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.

№146 Для начала нужно обьявить переменные,у меня обьявляются оператором DIM,ну думаю,что дим нужен и при этом действие.

Если переменная обозначает любой знак,не имея какого либо обозначения,или указания на конкретное число,тогда это переменная равна 0,обьявим ее.

DIM A,B,C,

(Если значение переменной равно 0,то можно распаложить ее в любом положении,или в задоном(изначально))

Дальше выводим переменные на экран,

(если данная функция не работает,то,тогда нужно ввести после('),знак(,).

PRINT 'A'

PRINT 'B'

PRINT 'C'

Ну и в конце пишем:

Endif

Примечание:

Если значение переменных будет равна 0,то на экране тоже будет равна 0.