Выполнить инверсию отдельно для 1-ой и 2-ой половин массива

@begin sss · Регистрация: 30.03.2010

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

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить инверсию отдельно для 1-ой и 2-ой половин массива

@AI\EKCAH^P · 03.05.2010, 18:36

Pascal

program inversiya;
uses crt;
var
a:array[1..10] of integer;
k,i,j,n:integer;
begin
  clrscr;
  randomize;
  writeln('исходный массив:');
  for i:=1 to 10 do
  begin
    a[i]:=random(21)-10;
    write(a[i]:5);
  end;
  n:=0;
  for i:=1 to 2 do
  begin
    k:=a[i];
    a[i]:=a[5-n];
    a[5-n]:=k;
    n:=n+1;
  end;
  n:=0;
  for i:=6 to 8 do
  begin
    k:=a[i];
    a[i]:=a[10-n];
    a[10-n]:=k;
    n:=n+1;
  end;
  writeln;
  textcolor(10);
  writeln('преобразованный массив:');
  for i:=1 to 10 do
  write(a[i]:5);
  readln;
end.

@begin sss 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 4
		1
	Выполнить инверсию отдельно для 1-ой и 2-ой половин массива 03.05.2010, 17:09. Показов 11045. Ответов 1 Метки нет (Все метки) Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить инверсию отдельно для 1-ой и 2-ой половин массива 0

	03.05.2010, 18:36

Выполнить инверсию отдельно для 1-ой и 2-ой половин массива

Решение