Последние вопросы и ответы


Задача №312. Дан массив из n элементов. Найти номер наименьшего элемента массива.


Нет уточнений

Ответы

var a:array[1..1000] of integer;
n,i,min,nomer:integer;
begin
write(\'Vvedite N = \');
read(n);
for i:=1 to n do begin
write(\'Vvedite a[\',i,\']=\');
read(a[i]);
end;
min:=a[1];
for i:=1 to n do if min>=a[i] then begin min:=a[i]; nomer:=i;end;
write(\'Nomer minimalnogo elementa = \',nomer);
end.
Нет уточнений