goH

Сидер ты где ?

мля, файл кривой, напиши лучче все задания тута -- будет гораздо проще, чем выкачивать его хз откуда )

3 TImage, 1 кнопка... принажатии на кнопку меняешь видимость нужного имэйджа заволишь глобальную переменную count, например var count: integer; procedure TButton1Click; var s: integer; begin s:= count mod 3; case s of 0: begin TImage1.Visible:= False; TImage2.Visible:= True; end; 1: begin TImage2.Visible:= False; TImage3.Visible:= True; end; 2: begin TImage3.Visible:= False; TImage1.Visible:= True; end; inc(count); примерно так... пишу навскидку, если что, по шапке не стучать )))

а чем проблема? var a:array [1..10] of integer; // задаем массив от 1 до 10 i, buff: integer; // задаем переменные i - счетчик buff - временная переменная для хранения данных begin // думаю, тут и так понятно for i:=1 to 10 do read(a); // выполняем чтение массива for i:=2 to 10 do if not odd(i) then // ф-я odd -- проверка на нечетность если что можно использовать условие i mod 2 =0 т.е. если элемент на четной позиции begin // начинаем менять местами необходимые элементы buff:=a; // во временную переменную заносим текущий элемент a:=a[i-1]; // переносим предыдущий элемент на место текущего a[i+1]:=buff; // переносим на место предыдущего элемента end; for i:=1 to 10 do write(a); // вывод массива end. // конец программы ))) код написал навскидку, так что если что, по шапке не стучать ))) если остались вопросы пиши в аську 574-153-777

Saw~, ну чесссна, поставил бы тебе пару и отправил в академ с такими знаниями XD взаимна

скинь мыло, попробую помочь Добавлено спустя 1 минуту 7 секунд: или пиши в асю 574153777