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

Узнай цену своей работы

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

Вычислить Z=(m1+m2)/2, где m1 и m2 - наименьшие элементы массивов Х(20) и Х(35). С помощью процедур и функций

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
const
  n = 35;
type
  TArr = array[1..n] of integer;
var
  ArrA, ArrB: TArr;
  Chr: Char;
 
procedure Gen_PrintArray(var Arr: TArr; n: Integer; Chr: Char);
var
  i: Byte;
begin
  randomize;
  writeln('Массив ', Chr, ': ');
  for i:=1 to n do
  begin
    Arr[i]:=random(100)+1;
    write(Arr[i], ' ');
  end;
  writeln;
end;
 
function MinimalEl(Arr: TArr; n: Integer): Integer;
var
  Min: Integer;
  i: Byte;
begin
  Min:=1;
  for i:=1 to n do
    if Arr[i] < Arr[Min] then Min:=i;
  MinimalEl:=Arr[Min];
end;
 
begin
  Gen_PrintArray(ArrA, n, 'A');
  writeln('Минимальный массива А: ', MinimalEl(ArrA, n));
  Gen_PrintArray(ArrB, n-15, 'B');
  writeln('Минимальный массива В: ', MinimalEl(ArrB, n-15));
  writeln('Полусумма минимальный: ', (MinimalEl(ArrA, n)+MinimalEl(ArrB, n-15))/2);
end.

Оцени полезность:

14   голосов , оценка 4.143 из 5