Составить алгоритм

[Алексей123123123]

Тема: «Одномерные массивы»
Найти 2 наибольших элемента среди элементов массива А(16).
Нужен алгоритм. Выполнить просчет работы алгоритма при задании трех различных вариантов исходных данных.

[Serge_Bliznykov]

if A[1]>A[2] 
then begin indexMax1 := 1; indexMax2 := 2 end
else begin indexMax1 := 2; indexMax2 := 1 end;

for i:=3 to n do begin
  if A[i]>A[indexMax1] 
  then 
       begin indexMax2 := indexMax1; indexMax1 := i end
  else 
       if A[i]>A[indexMax2] then indexMax2 := i;

не проверял. но должно работать.

[JIeIIIa]

Если еще актуально, пишите: stealth(собака)bigmir.net

[Вадим Мошев]

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

if A[1]>A[2] 
then begin indexMax1 := 1; indexMax2 := 2 end
else begin indexMax1 := 2; indexMax2 := 1 end;

for i:=3 to n do begin
  if A[i]>A[indexMax1] 
  then 
       begin indexMax2 := indexMax1; indexMax1 := i end
  else 
       if A[i]>A[indexMax2] then indexMax2 := i;

не проверял. но должно работать.

Сергей, эта тема же во фрилансе.

[Serge_Bliznykov]

Сообщение от Вадим Мошев

эта тема же во фрилансе

точно. извините, не заметил
да, думаю, что автору всё равно нужно, чобы кто-то разжевал и в рот положил.
Так что, надеюсь, я не сильно испортил фриланс своим примером....