program MaxOfThreeArrays;
{$APPTYPE CONSOLE}
uses SysUtils;
 
const
  N = 5;
 
// --- Раздел объявления пользовательских типов ---
type
  TIntArray = array[1..N] of Integer; // Создаем свой тип "TIntArray"
 
var
  // Теперь просто указываем наш тип для всех четырех массивов
  A, B, C, D: TIntArray; 
  i: Integer;
 
begin
  Randomize;
 
  // Заполнение исходных массивов
  for i := 1 to N do
  begin
    A[i] := Random(100);
    B[i] := Random(100);
    C[i] := Random(100);
  end;
 
  // Алгоритм нахождения максимума для каждого индекса
  for i := 1 to N do
  begin
    // Используем встроенную функцию Max из модуля Math для лаконичности
    // (Но можно оставить и через IF, как в прошлом примере)
    if (A[i] >= B[i]) and (A[i] >= C[i]) then
      D[i] := A[i]
    else if (B[i] >= A[i]) and (B[i] >= C[i]) then
      D[i] := B[i]
    else
      D[i] := C[i];
  end;
 
  // Вывод результата
  writeln('Result array D:');
  for i := 1 to N do
    write(D[i]:4); // :4 добавит отступ для красоты
 
  readln;
end.
 

cHJvZ3JhbSBNYXhPZlRocmVlQXJyYXlzOwp7JEFQUFRZUEUgQ09OU09MRX0KdXNlcyBTeXNVdGlsczsKCmNvbnN0CiAgTiA9IDU7CgovLyAtLS0g0KDQsNC30LTQtdC7INC+0LHRitGP0LLQu9C10L3QuNGPINC/0L7Qu9GM0LfQvtCy0LDRgtC10LvRjNGB0LrQuNGFINGC0LjQv9C+0LIgLS0tCnR5cGUKICBUSW50QXJyYXkgPSBhcnJheVsxLi5OXSBvZiBJbnRlZ2VyOyAvLyDQodC+0LfQtNCw0LXQvCDRgdCy0L7QuSDRgtC40L8gIlRJbnRBcnJheSIKCnZhcgogIC8vINCi0LXQv9C10YDRjCDQv9GA0L7RgdGC0L4g0YPQutCw0LfRi9Cy0LDQtdC8INC90LDRiCDRgtC40L8g0LTQu9GPINCy0YHQtdGFINGH0LXRgtGL0YDQtdGFINC80LDRgdGB0LjQstC+0LIKICBBLCBCLCBDLCBEOiBUSW50QXJyYXk7IAogIGk6IEludGVnZXI7CgpiZWdpbgogIFJhbmRvbWl6ZTsKICAKICAvLyDQl9Cw0L/QvtC70L3QtdC90LjQtSDQuNGB0YXQvtC00L3Ri9GFINC80LDRgdGB0LjQstC+0LIKICBmb3IgaSA6PSAxIHRvIE4gZG8KICBiZWdpbgogICAgQVtpXSA6PSBSYW5kb20oMTAwKTsKICAgIEJbaV0gOj0gUmFuZG9tKDEwMCk7CiAgICBDW2ldIDo9IFJhbmRvbSgxMDApOwogIGVuZDsKCiAgLy8g0JDQu9Cz0L7RgNC40YLQvCDQvdCw0YXQvtC20LTQtdC90LjRjyDQvNCw0LrRgdC40LzRg9C80LAg0LTQu9GPINC60LDQttC00L7Qs9C+INC40L3QtNC10LrRgdCwCiAgZm9yIGkgOj0gMSB0byBOIGRvCiAgYmVnaW4KICAgIC8vINCY0YHQv9C+0LvRjNC30YPQtdC8INCy0YHRgtGA0L7QtdC90L3Rg9GOINGE0YPQvdC60YbQuNGOIE1heCDQuNC3INC80L7QtNGD0LvRjyBNYXRoINC00LvRjyDQu9Cw0LrQvtC90LjRh9C90L7RgdGC0LgKICAgIC8vICjQndC+INC80L7QttC90L4g0L7RgdGC0LDQstC40YLRjCDQuCDRh9C10YDQtdC3IElGLCDQutCw0Log0LIg0L/RgNC+0YjQu9C+0Lwg0L/RgNC40LzQtdGA0LUpCiAgICBpZiAoQVtpXSA+PSBCW2ldKSBhbmQgKEFbaV0gPj0gQ1tpXSkgdGhlbgogICAgICBEW2ldIDo9IEFbaV0KICAgIGVsc2UgaWYgKEJbaV0gPj0gQVtpXSkgYW5kIChCW2ldID49IENbaV0pIHRoZW4KICAgICAgRFtpXSA6PSBCW2ldCiAgICBlbHNlCiAgICAgIERbaV0gOj0gQ1tpXTsKICBlbmQ7CgogIC8vINCS0YvQstC+0LQg0YDQtdC30YPQu9GM0YLQsNGC0LAKICB3cml0ZWxuKCdSZXN1bHQgYXJyYXkgRDonKTsKICBmb3IgaSA6PSAxIHRvIE4gZG8KICAgIHdyaXRlKERbaV06NCk7IC8vIDo0INC00L7QsdCw0LLQuNGCINC+0YLRgdGC0YPQvyDQtNC70Y8g0LrRgNCw0YHQvtGC0YsKCiAgcmVhZGxuOwplbmQuCg==

NyAyMQoxIDIgNTQ3MTUyCjEgMyA1MDkxNTcKMSA0IDUzOTI4MgoxIDUgNTQxNjQ1ICAgICAgICAgCjEgNiA0NTg0MzMKMSA3IDM4NTE3M+KAqAoyIDMgMTMxNTI4CjIgNCA5MjczNQoyIDUgMTUwNTExCjIgNiA5NDQ0MAoyIDcgMTk0NTQyCjMgNCAyMTY2MDAKMyA1IDI3MjQwMQozIDYgMTU3MTc2CjMgNyAxMjQwNzcKNCA1IDU3Nzg1CjQgNiA5NzMyMwo0IDcgMjQyMjMyCjUgNiAxMzY2NjMKNSA3IDI4Mzg2Mgo2IDcgMTQ3NDI2

7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426