Uses Crt;
var
a:array[1..10] of integer;
i:integer;
min,pos:integer;
BeginClrScr;
for i:=1 to 10 do begin
write(Введите число массива: );
Readln(a[i]);
end;
min:=a[i];
pos:=1;
for i:=2 to 10 do begin
if a[i]
pos:=i;
end;
end;
writeln(наименьший элемент ,min);
writeln(позиция ,pos);
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.