Функции в паскале !!

[ALABAMA]

В действительной квадратной матрицы найдите сумму элементов строки, в которой расположен элемент с наименьшим значением. Надо полагать, что этот элемент - единственный!!)

[ROMA2PVT]

Uses Crt;
Var A:array[1..10, 1..10] of integer;
    Imax,i,j,n,m,imin,min,sum:Integer;
 Begin
  randomize;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:3,'  ');
end;
writeln;
end;
writeln;
  Min:=0;
  Sum:=0;
  IMin:=0;
  For i:=1 to n do
   begin
    For j:=1 to m do
     begin
       If A[i,j]<Min then
         Begin
          Min:=A[i,j];
          IMin:=i;
         End;
     End;
   End;
   For j:=1 to m do
   begin
   Sum:= Sum+A[iMin,j];
   end;
   writeln('MIN в ',Imin,'-й строке:=',min);
   writeln('Сумма строки с MIN элементом:=',sum);
End.

[ALABAMA]

Огромное спасибо!!)

[ALABAMA]

тут не совсем так мне надо написать прогу через функцию.

[ROMA2PVT]

Так сделай через функцию.Почетай про передачу параметров в функцию и будет тебе счастье.

[ALABAMA]

щяс начну сотреть как зделать

[ROMA2PVT]

не сделаешь обращайся.помогу.

[ALABAMA]

а у тебя аська есть ?

[ROMA2PVT]

Э нет! Аська то есть.Но ток я уин не дам.Пиши сдесь лучше.Либо сразу могу прогу выложить.И сам посмотриш и разберёшься.

[ALABAMA]

Выложи а я посотрю плиз !!))