сформировать и вывести на экран последовательность из n частей

Сформировать и вывести на экран последовательность из n элементов

Задать свой вопрос
1 ответ
uses crt;
var n,i,a,mn,
k:integer;
begin write('n=');
readln(n);
writeln('Введите ',n,' целых чисел');
 k:=0;
 i:=1;
 while ilt;=n do 
begin 
 readln(a);  
if i=1 then   
begin     mn:=a;    
k:=1  
 end  
else
if alt;mn then   
begin    
mn:=a;    
k:=i   
end;  
i:=i+1 
end;
write('Минимальный элемент=',mn,' его номер=',k); end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт