Цитата:
Сообщение от corpions
Владимир...я лично не смыслю в этих задач... меня просто попросили помоч...просто перекопируй те мне пожалуйста эту задачу с Вашими исправлениями ???
|
Да пожалуйста:
Код:
program Lex;
uses crt;
var
m:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Vvedite kol-vo elementov massiva -> ');
readln(n);
writeln('Vvedite massiv ');
for i:=1 to n do read(m[i]);
readln;
min:=1;
for i:=1 to n do if m[i]<m[min] then min:=i;
for i:=min to n do m[i-min+1]:=m[i];
n:=n-min+1;
for i:=1 to n do write(m[i],' ');
readln;
end.