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

[Legionnn]

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

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

[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