Ответ: да, заметила. Это пустяк 😉
Ответ: хотела спросить. А -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.