Що буде результатом виконання даної програми? Об’єкт переміститься на 110 кроків
Об’єкт переміститься на 50 кроків
Об’єкт переміститься на 60 кроків
Об’єкт переміститься на 100 кроків

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.

--- C# 7.3 ---

using System;

using System.Collections.Generic;

using System.Linq;

namespace CSLear

{

   class Program

   {

       static void Main(string[] args)

       {

           string[] RawString = Console.ReadLine().Split(' ', ',' , '.');

           int Shortest = RawString.Select(s => s.Length).Min();

           for (int index = 0; index < RawString.Count(); index++)

           {

               ref string selected = ref RawString[index];

               if (selected.Length == Shortest && selected != "")

               {

                   selected = selected.Insert(0, "*");

               }

           }

           Console.WriteLine(string.Join(" ", RawString));

           Console.ReadKey();

       }

   }

}