Вычислить значение выражения - Pascal ABC (14320)

Формулировка задачи:

Написать программу решения следующей задачи: Вычислить и где и – максимальные элементы массивов X(20), Y(30); и – минимальные элементы этих же массивов (вычисление максимального и минимально элементов массива осуществлять в одной подпрограмме).


textual

Код к задаче: «Вычислить значение выражения - Pascal ABC (14320)»

const nx=20;ny=30;
type mas=array[1..ny] of integer;
var x,y:mas;
    z1,z2:real;
procedure vv_mas(var a:mas;n:integer;s:string);
var i:integer;
begin
 writeln(s);
 for i:=1 to n do
  begin
   a[i]:=random(51);
   write(a[i],' ')
  end;
 writeln
end;
function minmax(a:mas;n:integer;f:boolean):integer;
var i:integer;rez:integer;
begin  
  rez:=a[1];
  for i:=2 to n do if (a[i]>rez)=f then rez:=a[i];
  minmax:=rez
end;
begin
 vv_mas(x,nx,'массив X:');
 vv_mas(y,ny,'массив Y:');
 z1:=(minmax(x,nx,true)+minmax(y,ny,false))/2;writeln('Z1 = ',z1:0:1);
 z2:=(minmax(x,nx,false)+minmax(y,ny,false))/2;writeln('Z2 = ',z2:0:1);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.000 из 5

Источник