Блин да посмотри сам... где в else ты проверяеш или t больше k... это условие никогда не збудетсо... може t меньше k?

Эм.. Точно, чет затупил, сори) Но проблема актуальна, как определить длину упорядоченной части массива?

warkk

__________________
Любая действущая программа устарела.
Создайте систему, которой сможет пользоваться даже дурак ,и только дурак захочет ею пользоваться.
Как правильно задавать вопросы: _http://www.yakimchuk.ru/questions.htm

Turbo Pascal Дан массив размера N.Осуществить циклический сдвиг элементов массива вправо на одну позицию с запоминанием первого элемента исправте что неправильно.
var
a:array [1..100] of integer;
i,n,temp:integer;
begin
writeln('Vvedite n=');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do
readln (a[i]);
for i:=n downto 2 do
a[i]:=a[i-1];
for i:=1 to n do
i:=1;
temp:=a[i+1];
a[i+1]:=a[i];
temp:=a[n];
a[1]:=a[n];
writeln (a[i]);
readln;
end.

тобишь что бы можна было вызвать первый елемент старого масива?


а что собно не получается?

проверь в паскале там программа неправильно работает

сорри паскаль не стоит... в голове компилю

G4bR1eL
подсичтывать результат надо так

2 >>serhio<<
Ну сдесь
В цикле у тебя выполнятеся только i:=1 тобишь после
for i:=1 to n do нужен begin end;
И я не пойму зачем ты в цикле каждый раз присваиваешь переменной i значение одиницы?
И что ты пытаешся сделать в этой чати?