Паскаль!! Заполните массив случайными числами и найти два максимальных элемента массива и...

Question

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

Answer 1

Var a:array [1..10] of integer;

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

Comments

Большое спасибо!!!

---

извини, забыла во второй строчке указать целочисленные переменные, там:
i, max1, max2, imax1, imax2:integer;

---

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

---

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

---

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

---

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

---

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