Nuadarus
6 год назад
Сформировать и вывести на экран последовательность из n элементов
ОТВЕТЫ
Феофилакт
Jul 7, 2019
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.
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.
127
