Var ar:array[1..n] of integer; i,min:integer; sa:set of integer; begin min:=MaxInt; for i:=1 to n do begin readln(ar[i]); if ar[i]<=min then begin if ar[i]=min then sa:=sa+[i] else sa:=[i]; min:=ar[i]; end; end; writeln('Min=',min); writeln('Index:',sa); end.
Пример ввода: 98777 Пример вывода: Min=7Index:{5,4,3}
Answers & Comments
Verified answer
//Pascal ABC.NET v3.1 сборка 1172Const
n=5;
Var
ar:array[1..n] of integer;
i,min:integer;
sa:set of integer;
begin
min:=MaxInt;
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<=min then
begin
if ar[i]=min then sa:=sa+[i] else sa:=[i];
min:=ar[i];
end;
end;
writeln('Min=',min);
writeln('Index:',sa);
end.
Пример ввода:
98777
Пример вывода:
Min=7Index:{5,4,3}