Тема: скретч

За перевернутое фото извиняюсь.​

Объяснение:

1)

#include <iostream>

using namespace std;

int main()

{

  int Z[10];

  int b=0;

  for(int i=0;i<10;i++)

     Z[i]=rand()%46-20;

 

  cout<<"\nElements of the array::"<<endl;

 

  for(int i=0;i<10;i++)

  {

     cout<<i+1<<" = "<<Z[i]<<endl;

  }

 

  for(int i=0;i<10;i++)

  {

      if (Z[i]%5==0)

      {

       b++;

       Z[i]=Z[4];

      }

     cout<<i+1<<" = "<<Z[i]<<endl;

  }

  return 0;

}

2)

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

  srand(time(0));

  int K[15];

  int min=0;

  int max=0;

  for(int i=0;i<15;i++)

     K[i]=rand()%36-10;

 

  cout<<"\nElements of the array::"<<endl;

 

  for(int i=0;i<15;i++)

  {

     if (K[i]%2==0)

     {

       if (min > K[i]) {min=K[i];}

       if (max < K[i]) {max=K[i];}

     }

     cout<<i+1<<" = "<<K[i]<<endl;

  }

 

  cout<<"Min = "<<min<<endl;

  cout<<"Max = "<<max<<endl;

  return 0;

}

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
  Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
  Исправляем N:N div 10; на N:= N div 10;
 
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
  N, k: integer;
begin
  readln(N);
  k := 9;
  while N > 10 do
  begin
    if (N mod 10 < k) then k := N mod 10;
    N := N div 10;
  end;
  write(k)
end.