Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > [Pascal]Mассивы и строки

Автор: Dwane 5.4.2009, 21:00

Вопрос по массивам и строкам

Код


for i:=1 to 3 do
read(kx[i]);
Readkey;
for i:=1 to 3 do

if kx[i]<kp[i] then kxn[i]:=kx[i] else kxn[i]:=0;

for i:=1 to 3 do
str(kxn[i],z);
outtextxy(150,50+(i+50),z);
readkey;
End.

Вот код.Мне нужно чтобы введенные элементы массива kx сравнивались с элементами масива kp и когда элемент kx меньше элемента kp записывались в 3 масств Kxn,если же равен или больше то записывался бы 0.
А затем чтобы они выводились на экран.Вертикально,ну тоесть по оси y вниз.
Но у меня он записывает в kxn только последнее число которое меньше kp[i] ,а не все которые меньше kp[i].Или выводит только последние число я не понимаю.
Как это исправить?

Автор: mopsa 5.4.2009, 23:11

выводит только последнее

Код


for i:=1 to 3 do
  begin                                      //<-пропустил
    str(kxn[i],z);
    outtextxy(150,50+(i+50),z);
  end;                                        //  ну и здесь
readkey;