снова Turbo Pascal

Народ, помогите скомпилить еще одну лабу! плыз.

Условие: Дана линейная последовательность А с 10 елементов, елементы последовательности задаются пользователем, индексы елементов ряда изменяются от 1 до 10. Вывести в столбик елементы с парными индексами (А2,А4, А6,...).

Не дайте погибнуть студенту...

Stiffler, це жах... Зараз спробую швиденько - бачу ніхто в бій не рветься. Але сам факт...

А як перед навчальним роком кричав "та ДНУ! та ФТФ!..." а такі прості речі питаєш... На всьомі ФІТ у нас мабуть не знайдеться людини, яка це не вміє... Менш із тим, пішов писати...

Условие: Дана линейная последовательность А с 10 елементов, елементы последовательности задаются пользователем, индексы елементов ряда изменяются от 1 до 10. Вывести в столбик елементы с парными индексами (А2,А4, А6,...).

Stiffler

не ну эт уже не серьезно...берись за голову во время, иначе прийдется худо

Uses CRT;
const n=10;
Var A:array[1..n] of real {для цілих напишеш integer, вимоги початкової нема}
i:byte;
Begin
clrscr;
Writeln('Введите елементы линейной последовательности через пробел'
For i:=1 to n do Read(A);
Writeln('Требуемые по заданию элементы:'
For i:=1 to n do
If (i mod 2)=0 then Writeln('A[',i:2,']=',A[i]);
Readln;
End.

[i] добавлено через 1 час 12 минут
Stiffler, послухай нашого філософа:

берись за голову во время, иначе прийдется худо

Jack

він знає, що говорить... в самого не здана Теорія алгоритмів поки що...

Jack, просто рук уже не хватает, чтобы за все взяться...))
в понедельник 2 зачета по праву и теории техничесских систем(котрые идут на 5)+защита чертежа,...а тут еще и прогу на пон. задали...

добавлено через 28 секунд
Timer, сенк за отзыв!

Stiffler, к сожалению ты этой темой(прошлая - еще куда ни шло) опустил мое и не только мое мнение обо всем физтехе. Такие задачки в 10 классе решают

в понедельник 2 зачета по праву и теории техничесских систем(котрые идут на 5)+защита чертежа,...

Stiffler

Та мені не жалко, користуйся... але...
Або у вас по-викрутяному поставлений навчальний процес, або ЯК ЖЕ ЦЕ ТРЕБА БУЛО ЗАБИВАТИ на те навчання, щоб в тиждень перед Новим роком на 1 день стільки наскладати?

Maximus, +1... Тут элементарно все было...

ребяты, не у всех же в школе было программирование...
у меня, к примеру, его отродясь не было и единственное, чем мы были заняты- так это КС по сети....)))))))))

Sweet_Sveta, классно вам! а мы во второй дум шпилили! и тот минут 15 грузился

ну вот....
причем самая забитая девочка рубила весх по сети нереально....бедняга, вероятно, так мы её достали....
а они от нас ещё требуют Паскаля...))))))