Поменять каждый элемент массива, стоящий на нечетном месте, на элемент, стоящий справа

@rinatan · Регистрация: 25.03.2013

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

Дан одномерный массив A[10]. Написать программу, которая будет менять каждый элемент, стоящий на нечетном месте, на элемент, стоящий справа

@DauMoH · 08.05.2013, 11:51

Pascal

program mas;
 
const
  n = 10;
 
var
  a: array[1..n] of integer;
  i: byte;
 
begin
  randomize;
  writeln('Массив А:');
  for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i]:4);
  end;
  writeln;
  writeln('Изменённый массив:');
  for i := 1 to n do
    if i mod 2 = 0 then 
      write(a[i]:4)
    else 
    begin
      a[i] := a[i + 1];
      write(a[i]:4);
    end;
  readln
end.

@rinatan 0 / 0 / 1 Регистрация: 25.03.2013 Сообщений: 11
		1
	Поменять каждый элемент массива, стоящий на нечетном месте, на элемент, стоящий справа 08.05.2013, 07:04. Показов 1641. Ответов 1 Метки нет (Все метки) Дан одномерный массив A[10]. Написать программу, которая будет менять каждый элемент, стоящий на нечетном месте, на элемент, стоящий справа 0

Опции темы

Поменять каждый элемент массива, стоящий на нечетном месте, на элемент, стоящий справа

Решение