Процедуры и функции

[Алeксандр]

Даны два массива найти сумму минимальных элементов.
делать и а функции и процедуре, ответы должны совподать

[Sazary]

Например, так:

uses crt;
const n=7;
type
mas = array[1..n] of integer;
var
a,b : mas;
i,min : integer;

function minfunc(m1,m2 : mas) : integer;
  var mi,mn1,mn2 : integer;
  begin
  mn1 := m1[1];
  for mi:=2 to n do
    if m1[mi]<mn1 then mn1 := m1[mi];
  mn2 := m2[1];
  for mi:=2 to n do
    if m2[mi]<mn2 then mn2 := m2[mi];
  minfunc := mn1+mn2;
  end;

procedure minproc(m1,m2 : mas; var mn : integer);
  var mi,mn1,mn2 : integer;
  begin
  mn1 := m1[1];
  for mi:=2 to n do
    if m1[mi]<mn1 then mn1 := m1[mi];
  mn2 := m2[1];
  for mi:=2 to n do
    if m2[mi]<mn2 then mn2 := m2[mi];
  mn := mn1+mn2;
  end;

begin
clrscr;
randomize;
writeln('Massiv a:');
for i:=1 to n do
  begin
  a[i] := random(20);
  b[i] := random(20);
  write(a[i]:4);
  end;
writeln;
writeln('Massiv B:');
for i:=1 to n do
  write(b[i]:4);
writeln;
writeln;
min := minfunc(a,b);
writeln('Minimum cherez funkciyu= ',min);
minproc(a,b,min);
writeln('Minimum cherez proceduru= ',min);

readln;
end.