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

Question

Информатика

Онисифор

26 сентября, 21:28

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

+3

Ответы (1)

Знаете ответ на вопрос?

Лера · Answer 1

uses crt;

var n, i, a, mn,

k:integer;

begin write ('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
begin

mn:=a;

k:=i

end;

i:=i+1

end;

write ('Минимальный элемент=', mn,' его номер=', k) ; end.