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

[Legionnn]

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

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

[Client]

Надо решить через функцию While..Do.

Может в цикле while?

[Legionnn]

Может в цикле while?

Да, через цикл можеш помочь ?

[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.

[Legionnn]

Спасибо,только я учил паскаль на очень подготовительном уровне и я часть задачи не понимаю и не смогу здать в коледже
У меня вообщем каr-то так получается правда чёто не считает подскажите что неправильно

  
program 14;
var ns:array[1..10]of real;
x:integer;
begin
writeln('vvesti massiv ns[1..10]');
for x:=1 to 10 do
readln(ns[x]);
begin
x:=2
while x<=10 do
begin
ns[x]:=ns[x]-1;
x:=x+2;
end;
end;
writeln('ns[x]',ns[x]:8:2);
end.

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

[Client]

var ns:array[1..10]of real;
x:integer;
begin
writeln('vvesti massiv ns[1..10]');
for x:=1 to 10 do
readln(ns[x]);
x:=2;
while x<=10 do
begin
ns[x]:=ns[x]-1;
x:=x+2;
end;
for x:=1 to 10 do
writeln('ns[',x,']',ns[x]:8:2);
end.

[Legionnn]

Спасибо огромное, а то я бы сам задачу не решил