Question

б) Ввести три массива А[1..5], В[1..7], С[1..9]. При помощи функции определить минимальный элемент в каждом массиве. При помощи процедуры определить наибольший элемент и его порядковый номер в каждом массиве. В основной программе определить самый большой элемент из трех минимальных. Pascal ABC.NET

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

function Min(a:array of integer):=a.Min;

procedure Max(a:array of integer; var mx,imx:integer);
begin
  imx:=a.IndexMax; mx:=a[imx]; imx+=1;
end;

begin
  var a:=ReadArrInteger('А:',5);
  var b:=ReadArrInteger('B:',7);
  var c:=ReadArrInteger('C:',9);
  var emax,imax,gmax,lmin:integer;
  gmax:=Min(a);
  Max(a,emax,imax); Writeln('A: min=',gmax,', маx=',emax,' [',imax,']');
  lmin:=Min(b);
  Max(b,emax,imax); Writeln('B: min=',lmin,', маx=',emax,' [',imax,']');
  gmax:=Max(gmax,lmin);
  lmin:=Min(c);
  Max(c,emax,imax); Writeln('C: min=',lmin,', маx=',emax,' [',imax,']');
  gmax:=Max(gmax,lmin);
  Writeln('Максимальный из минимумов равен ',gmax)
end.