Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Задача №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.