Які блоки завжди використовують в алгоритмах з розгалуженням
Події
Перевірки умови
Виведення
Руху

Program  Bolatkabylov;
uses crt;
const n=4;
const m=5;
var
  s:string; 
  i,j,min:integer;
  A:array[1..n,1..m] of integer;
  B:array[1..m] of integer;
begin
  S:='*** Alphaeus is thinking... ***';
  for i:=1 to length(s) do begin
  write(s[i]);
  for j:=1 to 500000 do s[i]:=s[i];
  end;
  writeln();
  writeln('***          OK             ***');
  writeln();
  writeln('Для заданного массива А размерности 4х5 сформировать одномерный массив В, ');
  writeln('элементами которого будут минимальные элементы в каждом столбце массива А.');
  randomize;
  writeln();
  writeln('Массив А: ');
  //Заполняем массив А случайными числами и выводим его
    for i:=1 to n do  begin
    for j:=1 to m do
    begin
      A[i,j]:=random(100)-50;
      write(A[i,j]:4,' ');
    end;
    writeln();
  end;
  //Находим минимальные элементы в каждом столбце и сохраняем в массив В
  for j:=1 to m do  begin
    min:=A[1,j];
    for i:=1 to n do
    begin
      if A[i,j]<min then min:=A[i,j];
    end;
    B[j]:=min;
  end;
  //Выводим массив В
  writeln();
  writeln('Mассив B: ');
  for j:=1 to m do
    write(B[j]:4,' ');
end.

тк Борисов жил с ученым из Ярославля, то Борисов не оттуда и не с Москвы и Санкт-Петербурга. следовательно, он с Новосибирска

Григорьев не Москвич и не с Ярославля. и теперь понятно, что не с Новосибирска. следовательно, он с Санкт-Петербурга

Егоров не с Москвы, остается один вариант, он с Ярославля

а Викторов значит с Москвы

можно сделать таблицу (по ней легко решать такие задачи):

                  Москва.   Новосиб.   С-п.   Ярославль.

Борисов.       -                 +               -              -

Викторов.     +                -                -              -

Григорьев.   -                 -                +             -

Егоров.         -                 -                -              +