здравствуйте, подскажите пожалуйста как решить задачку с массивом в паскале...

[=|винтик|=]

вот и сама задачка:

Имя массива: D, его разменость - 40; Тип данных - byte; условия ввода - в прямом порядке, пока D[i]<D[i+1]; условия вывода - все элементы с четными индексами.

выручите пожалуйста, завтра должен сдать, а голова уже вообще нифига не соображает...

[=|винтик|=]

по моему здесь присутствует циклический алгоритм?

[Sazary]

=|винтик|= Вижу, вы продолжаете игнорировать правила (а заодно и кнопку "правка"). Что ж.. Лично я в последний раз отвечаю в вашей теме, созданной в подобном стиле.

uses crt;
const N = 40;
var
D : array[1..N] of byte;
i,k : integer;
begin
clrscr;
writeln('Vvodite elementy');
readln(D[1]);
k := 2;
repeat
 readln(D[k]);
 if D[k]<D[k-1] then break;
 inc(k);
until k>N;
dec(k);

for i:=1 to k do
  if not odd(i) then write(D[i]:3);

readln;
end.

Очень интересно. Обязательно почитайте на досуге.
http://programmersforum.ru/rules.php
http://programmersforum.ru/announcement.php?f=31
http://programmersforum.ru/showthread.php?t=12081

[=|винтик|=]

я понимаю, но дело в том, что я даже по аналогии с последней задачей(если они конечно похожи) не знаю даже с чего начать после begin

[=|винтик|=]

спасибо, буду учиться...

[Sazary]

=|винтик|= У темы должно быть адекватное название, отображающее суть задачи. Например, "Вывести четные элементы массива".

И используйте, наконец, кнопку "правка"! Для чего она, по-вашему, предназначена?