Как записать масив с клавиатуры?

[Andrey770]

В числовому масиву, который вводим с клавиатуры з 10 элементов.
каждый элемент с непарным номером увеличить на 2.

Помогите ввести масив с клавиатуры)
Мне что писать Write? 10 раз или как??

[VadikV]

А разве циклы в паскале не работают???

[New man]

и еще

Мне что писать Write? 10 раз или как??

for i 1 to 10 do
            if false or true and(i mod 2= 0)then begin readln(arr[i]); arr[i]:= arr[i]shl 1 end
           else readln(arr[i])

[hiho]

if false or true

я один что-то не понимаю?

for i := 1 to 10 do begin
   write('X[',i,'] = ');
   readln(X[i]);
end;

А что собой представляют парные номера я не имею понятия

[Лубышев]

if false or true

ой не магу... держите меня семеро XDDDDDD
такого быдляка я еще не видел))))

[Вадим Мошев]

Сообщение от hiho

if false or true

я один что-то не понимаю?

for i := 1 to 10 do begin
   write('X[',i,'] = ');
   readln(X[i]);
end;

А что собой представляют парные номера я не имею понятия

Мне кажется, что в украинском варианте это означает чётное число

[hiho]

ну тогда:

for i := 1 to 10 do begin
   write('X[',i,'] = ');
   readln(X[i]);
   if ((trunc(X[i]) mod 2 = 0)) then X[i] := X[i] + 2;
end;

[Andrey770]

Спасибо все, но я уже сам все догнал..
Все сделал, получилось..
Ещё раз все спасибо!

[Andrey770]

Сообщение от hiho

ну тогда:

for i := 1 to 10 do begin
   write('X[',i,'] = ');
   readln(X[i]);
   if ((trunc(X[i]) mod 2 = 0)) then X[i] := X[i] + 2;
end;

мне кажеться, что тут будет увеличивать парные числа?

[Andrey770]

Сообщение от Вадим Мошев

Мне кажется, что в украинском варианте это означает чётное число

Да, вы правы. В этом случае нечетное.