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

[ROMA2PVT]

Uses Crt;
Type
   mas=array[1..10, 1..10] of integer;
Var
    Imax,i,j,n,m,imin,min,sum:Integer;
    a:mas;

 function SUMmax(kl:mas;k,l:integer):integer;
 begin
 Min:=0;
  Sum:=0;
  IMin:=0;
  For i:=1 to k do
   begin
    For j:=1 to l do
     begin
       If kl[i,j]<Min then
         Begin
          Min:=kl[i,j];
          IMin:=i;
         End;
     End;
   End;
   For j:=1 to m do
   begin
   Sum:= Sum+kl[iMin,j];
   end;
   end;

 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;

 SUMmax(a,n,m);

   writeln('MIN в ',Imin,'-й строке:=',min);
   writeln('Сумма строки с MIN элементом:=',sum);
End.

Uses Crt;
Var
    A:array[1..10, 1..10] of integer;
    Imax,i,j,n,m,imin,min,sum:Integer;

 function SUMmax(k,l:integer):integer;
 begin
 Min:=0;
  Sum:=0;
  IMin:=0;
  For i:=1 to k do
   begin
    For j:=1 to l 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;
   end;
   
 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;

 SUMmax(n,m);
 
   writeln('MIN в ',Imin,'-й строке:=',min);
   writeln('Сумма строки с MIN элементом:=',sum);
End.

Вот те две выбирай навкус.

[ALABAMA]

спасибо все пошол розбераца .Уважуха чувак !!!)

[ROMA2PVT]

спасибо все пошол розбераца .Уважуха чувак !!!)

Ну иди разбирайся.

[Ольга123456]

Здравствуйте!Помогите пожалуйста!


Дан одномерный массив А размера n(n<=30).получить новый массив В,каждый элемент которого вычисляется по формуле bi=cosai+cos^2i+cos^3i+..+cosa^ni

(формула словами:б итое равно косинус а итого+косинус квадрат и+косинус куб и.......и так далее)
среда-Турбо Паскаль