Версия для печати темы

Автор: Legionnn 5.06.2008 0:28

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

Автор: Client 5.06.2008 0:33

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

Автор: Legionnn 5.06.2008 1:01

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

Автор: Client 5.06.2008 1:17

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 5.06.2008 1:35

Спасибо,только я учил паскаль на очень подготовительном уровне и я часть задачи не понимаю и не смогу здать в коледже
У меня вообщем ка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.

Автор: Client 5.06.2008 1:40

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 5.06.2008 1:46

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