Вычислить значение выражения - 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.