Дан массив. Все его элементы с четными номерами уменьшит на единицу

@Gabdra · Регистрация: 23.12.2013

Author24 — интернет-сервис помощи студентам

Дан массив. Все его элементы с четными номерами уменьшит на единицу

Добавлено через 1 час 47 минут

Сообщение от Gabdra

Дан массив. Все его элементы с четными номерами уменьшит на единицу

Вот так будет да?

Pascal

     Const n=5;
     var a:array[1..n] of real;
     i:integer;
      begin
     writeln('');
     Randomize;
     for i:=1 to n do
     a[i]:=Random(5);
     for i:=1 to n do
     write(' a[',i,']=',a[i]);
     for i:=1 to n do
     begin
     if not(odd(i)) then a[i]:=a[i]-1;             
     end;
     writeln('');
     for i:=1 to n do
     write(' a[',i,']=',a[i]);
     end.

@Samhain · 27.12.2013, 08:34

Сообщение от Gabdra

Вот так будет да?

Можно сделать немного короче.

Pascal

Const n=5;
var a:array[1..n] of integer;
    i:integer;
begin
  Randomize;
  for i:=1 to n do
    begin
      a[i]:=Random(5);
      writeln(' a[',i,']=',a[i]);
    end;
  writeln;
  for i:=1 to n do
    begin
      if not(odd(i)) then a[i]:=a[i]-1;
      writeln(' a[',i,']=',a[i]);
    end;
  readln
end.

	27.12.2013, 08:34