Программа показывает максимальное и минимальное значение 0 - Pascal ABC

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

почему показывает максимальное и минимальное значение 0?
program PR8;
const n=5; m=5;
type aType = array [1..5] of Integer;
var
X:array [1..n] of integer;
Y:array [1..m] of integer;
i,j,max,min:integer;
Z:real;
function C(k, l : aType) : Real := k.max - l.min / 2;
 
begin
 
  Randomize;
  
  var k : aType;
  for var g := 1 to 5 do k[g] := Random(10, 50);
  WriteLn('k = ', k);
 
  var l : aType;
  for var g := 1 to 5 do l[g] := Random(10, 50);
  WriteLn('l = ', l);
 
 
max:=X[1];
for i:=1 to n do
if X[i]>max
then max:=X[i];
 
writeln;
write ('Максимальний елемент масива X:', max);
 
min:=Y[1];
for j:=1 to m do
if Y[j]<min
then min:=Y[j];
 
writeln;
write ('Мінімальний елемент масива Y:', min);
writeln(); 
Z:=(max-min)/2;
write('Z=',Z);
end.
k = [19,40,40,12,36] l = [44,42,42,19,49] Максимальний елемент масива X:0 Мінімальний елемент масива Y:0 Z=0 ВОТ ОТВЕТ


textual

Код к задаче: «Программа показывает максимальное и минимальное значение 0 - Pascal ABC»

program PR8;
 
const
  n = 5; m = 5;
 
type
  aType = array [1..5] of Integer;
 
var
  X: array [1..n] of integer;
  Y: array [1..m] of integer;
  i, j, max, min: integer;
  Z: real;
 
//function C(k, l : aType) : Real := k.max - l.min / 2;
begin
  Randomize;
  for var g := 1 to 5 do 
  begin
    x[g] := Random(10, 50);
    write(x[g]:4);
  end;
  WriteLn;
  for var g := 1 to 5 do 
  begin
    y[g] := Random(10, 50);
    write(y[g]:4);
  end;
  WriteLn;
  max := X[1];
  for i := 1 to n do
    if X[i] > max then 
      max := X[i];
  writeln;
  write('Максимальний елемент масива X: ', max);
  min := Y[1];
  for j := 1 to m do
    if Y[j] < min then 
      min := Y[j];
  writeln;
  write('Мінімальний елемент масива Y: ', min);
  writeln(); 
  Z := (max - min) / 2;
  write('Z=', Z);
end.
Эта работа вам не подошла?

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


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

15   голосов, оценка 3.933 из 5

Источник