Паскаль!! Заполните массив случайными числами и найти два максимальных элемента массива и их номера. Пример: Массив: 5 5 3 4 1 Максимальный элемент: A[1]=5 Второй максимум: A[2]=5
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]<max1) then begin max2:=a[i]; imax2:=i; end; writeln('Максимум A[',imax1,'] = ', max1); writeln('Второй максимум A[',imax2,'] = ', max2) end.
Answers & Comments
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]<max1) then begin max2:=a[i]; imax2:=i; end;
writeln('Максимум A[',imax1,'] = ', max1);
writeln('Второй максимум A[',imax2,'] = ', max2)
end.
i, max1, max2, imax1, imax2:integer;