Проверить, находится ли в двумерном массиве введенное пользователем число

SCHaNS

Люди помогите решить такую задачу в школе задали..............Написать программу, которая проверяет находится ли в двумерном массиве введенное пользователем число если ДА, то вывести на экран номер его строки и столбца. Массив n на n, число n вводится пользователем. Массив заполнить случайными числами от 1 до 30.А перед выводом на экран номер строки и столбца вывести сам массив.
1 ответ

SCHaNS

  const
    nmax=100;
  var
    a: array[1..nmax,1..nmax] of integer;
    i,j,n,m,k,l: integer;
begin
  write('vvedite razmer massiva: '); readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(30)+1;
        write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
 
  write('vvedite chislo: '); readln(m);
  k:=0; l:=0;
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]=m then
      begin
        k:=i; l:=j;
      end;
      if k<>0 then
      writeln('v massive est chislo ',m,' v ',k,' stroke ',l,', stolbe')
      else writeln('netu chisla ',m);
  readln;
end.