Def, Гражданин вроде из России,а орфография - жуть ))
Code
Uses CRT;
Const MAX = 10;
Var a, b: Array[1..MAX] of Integer;
summ: Integer;
i: Byte;
{Это для примера с функцией}
Function ArrMinSumm(ar_a, ar_b: Array of Integer): Integer;
Var minA, minB: Integer;
Begin
minA := ar_a[0];
minB := ar_b[0];
For i := 1 to MAX-1 do
Begin
if (ar_a[i] < minA) then minA := ar_a[i];
if (ar_b[i] < minB) then minB := ar_b[i];
End;
ArrMinSumm := minA + minB;
End;
{Это - с процедурой}
Procedure ArrMinSumm2(ar2_a, ar2_b: Array of Integer);
Var minA, minB: Integer;
Begin
minA := ar2_a[0];
minB := ar2_b[0];
For i := 1 to MAX-1 do
Begin
if (ar2_a[i] < minA) then minA := ar2_a[i];
if (ar2_b[i] < minB) then minB := ar2_b[i];
End;
summ := minA + minB;
End;
Begin
ClrScr;
Randomize;
For i := 1 to MAX do
Begin
a[i] := Random(30)+1;
b[i] := Random(30)+1;
End;
Writeln('Массив A: ');
For i := 1 to MAX do
Begin
Write(a[i]:4);
End;
Writeln(#13#10#10,'Массив B: ');
For i := 1 to MAX do
Begin
Write(b[i]:4);
End;
{Для кода с функцией}
Writeln(#13#10#10,'Сумма минимальных элементов равна: ',ArrMinSumm(a,b));
{Для кода с процедурой}
ArrMinSumm2(a,b);
Writeln('Сумма минимальных элементов равна: ',summ);
ReadKey;
End.
