Сформировать и вывести на экран последовательность из n элементов
Нет комментариев
Ответы
Гость uses crt;
var n,i,a,mn,
k:integer;
beginwrite('n=');
readln(n);
writeln('Введите ',n,' целых чисел');
k:=0;
i:=1;
while i<=n do
begin
readln(a);
if i=1 then
begin mn:=a;
k:=1
end
else
if a<mn then
begin
mn:=a;
k:=i
end;
i:=i+1
end;
write('Минимальный элемент=',mn,' его номер=',k);end.
Нет комментариев
Похожие вопросы
Информатика
Помогите задание 8.3)...
Информатика
Помогите с заданием номер 8.3)...
Информатика
Как делать эти кружочки в ворде 2007...
Список предметов
