Не за что, надеюсь в ответ тоже будет благодарность. Прикреплен еще исходник
varn,i,min,c:integer;
a:array [1..100] of integer;
begin
n:=6;for i:=1 to n do
begin
writeln ('vvedi element massiva');
readln (a[i]);
end;
min:=a[1];
c:=1;
for i:=2 to n do
begin
if min>a[i] then begin min:=a[i];c:=i; end;
end;
writeln ('min=', min, ' nomer=',c);
readln;
<span>end.</span>
Javascript:var м=[],ч;while(true){ч=prompt();if(ч==0)break;else м.push(prompt());}alert(Math.min.apply(null,м)+" "+Math.max.apply(null,м));
Общее назначение
1) Операционная система Microsoft Winndows XP;
2) Операционная система Microsoft Winndows Vista;
3) Операционная система Microsoft Winndows 7;
4) Операционная система Microsoft Winndows Server 2003;
5) Операционная система Microsoft Winndows Server 2008;
6) Операционная система Mandriva Linux;
7) Операционная система RedHat Enterprise Linux;
8) Операционная система FreeBSD;
9) Операционная системаHPUX;
10) Операционная система QNX
<span>- 715http://calculatori.ru/perevod-chisel.html2 </span>