Паскаль!!
Заполните массив случайными числами и найти два максимальных элемента массива и их номера.
Пример:
Массив:
5 5 3 4 1
Максимальный элемент: A[1]=5
Второй максимум: A[2]=5

да, заметила. Это пустяк ;)

хотела спросить. А -maxint что конкретно обозначает?

максимальное целое значение из диапазона integer ;)

спасибо еще раз!

обращайтесь с программированием в любое время

var a:array [1..10] of integer;beginfor i:1 to 10 doa[i]:=random(20);max1:=-maxint;max2:=-maxint;imax1:=0;imax2:=0;for i:=1 to 10 doif a[i]>max1 then begin max1:=a[i]; imax1:=i; end;for i:=1 to 10 doif (a[i]>max2) and (a[i]<max1) then begin max2:=a[i]; imax2:=i; end;writeln('Максимум A[',imax1,'] = ', max1);writeln('Второй максимум A[',imax2,'] = ', max2)end.