Срочно надо решить задачу, задача простая но просто я паскале новенький Опции

[Legionnn]

Помогите пожалуйста решить задачу. Дан одномерный массив.Каждый второй элемент массива уменьшить на 1. Надо решить через цикл While..Do.

Сообщение отредактировано: Legionnn - 4.06.2008 21:12

[Client]

uses crt;
var
   a:array[1..10] of integer; //например
   i:byte;
begin
     clrscr;
     {заполнение массива}
     i:=1;
     while i<=10 do begin
           if not odd(i) then dec(a[i]);
           inc(i)
     end;
     {вывод массива}
     readkey
end.