1) Дан массив размерностью 8x6 из целых чисел. Напишите программу поиска минимального элемента массива среди двузначных чисел. 2) Дан массив размерностью 7x7 из целых чисел. Напишите программу замены всех чётных элементов массива, стоящих на побочной диагонале на значение первого массива

program zz1;

var a:integer; // задаем переменную целого типа

n, b, c:real;// задаем переменные не целого типа

begin

write(' введите заданную величину а '); // вводим с клавиатуры число

read(a);

n:= a / 1024; // переводим объем информации в килобайты

b:= (a / 1024) / 1024; // переводим объем информации в мегабайты

c:= ((a / 1024) / 1024) / 1024; // переводим объем информации в гигабайты

writeln(' объем информации в килобайтах = ', n); // выводим ответ

writeln(' объем информации в мегабайтах = ', b);

write(' объем информации в гигабайтах = ', c);

end.

// PascalABC.NET 3.0, сборка 1128
procedure Convert(V:array of integer);
begin
  for var i:=0 to V.Length-1 do
    if V[i]>9 then V[i]:=9
    else
      if V[i]<5 then V[i]:=5
end;

procedure Develop(c:char; k:integer);
begin
  WritelnFormat('*** Массив {0} ***',c);
  var a:=ArrRandom(k,-5,15);
  Write('исходный : '); a.PrintLn(',');
  Convert(a);
  Write('результат: '); a.PrintLn(',');
end;

begin
  var m:=ReadInteger('Количество элементов в массиве A:');
  var n:=ReadInteger('Количество элементов в массиве B:');
  Develop('A',m);
  Develop('B',n)
end.

Тестовое решение:
Количество элементов в массиве A: 15
Количество элементов в массиве B: 10
*** Массив A ***
исходный : 6,5,-5,9,1,0,-3,9,13,12,-4,8,11,14,-5
результат: 6,5,5,9,5,5,5,9,9,9,5,8,9,9,5
*** Массив B ***
исходный : 5,12,12,4,7,9,7,-3,-1,-2
результат: 5,9,9,5,7,9,7,5,5,5