Қонақтар әңгімесіне жазушы берілген үзіндіде оқырманына қандай шындықты жеткізгісі келді ​

Const
  n=5;
var
  a:array[1..n,1..n] of integer;
  i,j,amin:integer;
begin
  Randomize;
  Writeln('Сгенерированный массив');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(50)+1;
      Write(a[i,j]:3)
    end;
    Writeln
  end;
  amin:=a[4,1];
  for j:=2 to n do
    if amin>a[4,j] then amin:=a[4,j];
  for i:=1 to n do a[i,i]:=amin;
  Writeln('Результирующий массив');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:3);
    Writeln
  end
end.
 
Тестовое решение:
Сгенерированный массив
 14 26 14 37 27
 27 24 37 17 38
 36 22 41 29 14
 13  7 32 42 27
 27 28 21 10 26
Результирующий массив
  7 26 14 37 27
 27  7 37 17 38
 36 22  7 29 14
 13  7 32  7 27
 27 28 21 10  7

Задача 1
CLS
INPUT "Введите первое число: ", a
INPUT "Введите второе число: ", b
c = (a + b) / 2
IF INT(c) = c THEN
   PRINT "Среднее является целочисленным"
ELSE
   PRINT "Среднее не является целочисленным"
END IF

Тестовое решение:
Введите первое число: 18
Введите второе число: 152
Среднее является целочисленным

Задача 2
DIM n AS INTEGER
CLS
INPUT "Введите номер месяца: ", n
SELECT CASE n
CASE 1, 2, 12: PRINT "Зима"
CASE 3 TO 5: PRINT "Весна"
CASE 6 TO 8: PRINT "Лето"
CASE ELSE: PRINT "Осень"
END SELECT

Тестовое решение:
Введите номер месяца: 7
Лето