guitar.by

Код: Выделить всё

procedure Write1(a: array of integer);
var
  i: integer;
  maxV, minV: integer;
  resultArr: array[10] of integer;

  procedure GetMaxMin(tempArr: array of integer; var maxValue: integer; var minValue: integer);
  var
    i: integer;
  begin
    maxValue = tempArr[0];
    minValue = tempArr[0];
    for i := 1 to 9 do
    begin
      if tempArr[i] > maxValue then
        maxValue := tempArr[i];
      if tempArr[i] < minValue then
        minValue := tempArr[i];
    end;
  end;
  
begin
  for i:= 0 to 10 do
  begin
    GetMaxMin(a[i], maxV, minV);
    resultArr[i] := (maxV - minV) div 10; //если надо нецелочисленно, то поменять тип массива
    { //если надо вывести то вместо предыдущей строчки пишем прямо вывод, и массив объявлять не надо
    Writeln((maxV - minV) div 10);
    }
  end;
end;

Код: Выделить всё

// В принципе та же идея, понадобится модификация процедуры из предыдущей 
// задачи для поиска максимума и минимума. Если я тебя правильно понял,
// должно получиться что-то вроде

procedure Write2(a, b, c: array of integer; var d: array of integer);
var
  i: integer;

  function GetMax(tempArr: array of integer; strNo: integer): integer;
  var
    i: integer;
    val: integer;
  begin
    val := tempArr[0; strNo];
    for i := 1 to 9 do
      if val < tempArr[i; strNo] then
        val := tempArr[0; strNo];
    result := val;
    // или так как указано ниже - не помню, бо последний раз 
    // юзал Delphi, там немного подругому.
    // GetMax := val; 
  end;

begin
  for i := 0 to 9 do
    d[i] := GetMax(a, i) + GetMax(b, i) + GetMax(c, i);
end;

Код: Выделить всё

uses crt;
var B:array[1..10,1..10] of integer;
i,j:byte;
max,min,maxB,minB:integer;
procedure maxmin(var m:real;n:real;x:array of real;K:array of integer);
begin
i:=1;
j:=1;
max:=0;
min:=10000;
for i:=1 to 10 do
    for j:=1 to 10 do
    if K[i,j]>max then max:=K[i,j] ;
    if K[i,j]<min then min:=K[i,j];
   end;
x[i]:=(max-min)/10;
writeln('X',i,'=',x[i]);
end;
m:=max;
n:=min;
begin
randomize;
clrscr;
for i:=1 to 10 do
for j:=1 to 10 do B[i,j]:=random(20);
for i:=1 to 10 do begin
for j:=1 to 10 do write( B[i, j]:3);
writeln;  writeln;
end;
maxmin(maxB,minB,x,B);
writeln(X);
readln;
end.