помогите с масивами

[tarasfx]

хелп: выполнить для одномерного масива размерностю n елементов и для двухмерного масива размерностю

вычислить произведение трех минимальных елементов масива

[Hollander]

Решение не проверено, т.к. ни делфи ни паскаля нету на работе.
Проверь сам, может с индексами немного напутал. Решение для одномерного массива, для 2-мерного тоже самое, только основной цикл в программе:

 
for k:=0 to n do
     prov_min(array[k]);

надо заменить на:

 
for k:=0 to n do
  for j:=0 to m do
     prov_min(array[k,j]);

 
procedure sort_min();
var i, tmp: integer;
begin
  i:=0;
  while i<2 do
  begin
    if min[i]<min[i+1] then
    begin
      tmp:=min[i+1];
      min[i+1]:=min[i];
      min[i]:=tmp;
      i:=0;
    end;
  i:=i+1;
  end;
end;
 
procedure prov_min(el: integer);
begin
   if min[0] < el then min[0] := el;
   sort_min();
end;
// основная программа
begin
  min[0]:=0;
  min[1]:=0;
  min[2]:=0;
  for k:=0 to n do
     prov_min(array[k]);
  writeln('Произведение = ',min[0]*min[1]*min[2]);
end;

[tarasfx]

спасибо но только нада обойтись без процедур,вот в чем проблема

[Djaconda]

тоже самое только код с процедур переносишь в еод основной программы а сами процедуры убераешь. сначало ты просортируешь а потом возмешь три первых или последних взависимости как сортировал...