не могу сделать задачу Pascal на массивы!!!

[sergsergserg]

1) Дан массив. Найти сумму индексов элементов с максимальным значением.
2) Дан массив. Найти 2-ой max за 1 просмотр.

[Don Karleone]

Ну и в чем проблема? Наработки где???

[sergsergserg]

2) так? а 2 вообще не знаю
Procedure Maximum(X : MyArray; n, m : integer; Var Max, Maxi, Maxj : integer);
Var
i, j : integer;
Begin
Max := X[2, 2];
Maxi := 2;
Maxj := 2;
for i := 2 to n do
for j := 2 to m do
if X[i, j] > Max
then
begin
Max := X[i, j];
Maxi := i;
Maxj := j;
end;
End;

[Don Karleone]

от болды написал???

var
  A: array [1..10] of integer;
  i, Max: integer;
begin
  Max:=A[1];
  for i:=2 to 10 do
    if A[i] > Max then Max:=A[i];
  Sum:=0;
  for i:=1 to 10 do
    if A[i] = Max then Sum:=Sum + i;  
end.

[sergsergserg]

да нет в тетрадке поискал вот нашёл, а что правильно??

[Don Karleone]

Сообщение от sergsergserg

да нет в тетрадке поискал вот нашёл, а что правильно??

так вначале проверил бы, вдруг правильно, а потом сюда писал.

[sergsergserg]

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

[Don Karleone]

Сообщение от sergsergserg

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

твоя процедура найдет последний максимальный элемент и его индексы. Работает она с матрицей. И сделает это правильно лишь в том случае если индексация элементов начинается с 2. К твоей задаче не пойдет.

[sergsergserg]

блин, а как тогда решать??

[Don Karleone]

сори, я думал что эта процедура для первой задачи. Но все равно она неправильная.

  k:=0;
  j:=n;
  for i:=n-1 downto 1 do
    begin
      if a[i] = a[j] then
                         begin
                           k:=j;
                           j:=i;
                         end;
      if a[i] > a[j] then
                         begin
                           k:=i;
                           j:=i;
                         end;
    end;
  if k <> j then writeln(' индекс второго максимального ',k)
             else writeln('максимальный элемент единственный');

Сори, исправился Благодарности оставляем на весах слева.