Помогите пожалуйста с информатикой в паскале2.  Заменить элементы массива с k1-го

Помогите пожалуйста с информатикой в паскале
2. Заменить элементы массива с k1-го по k2-ой на те же элементы в обратном порядке.
3. Из частей массива А сформировать массив В той же размерности по правилу: первые 10 частей находятся по формуле B[i]=A[i]+i, другие по формуле B[i]=A[i]-i.

Задать свой вопрос
1 ответ

Ответ:

Разъяснение:

const

 nm=100;

var

 a: array[1..nm] of integer;

 i,k,l,n,buf:  integer;

begin

 randomize;

 write('vvedite n ');

 readln(n);

 writeln('ishodniy massiv:');

 for i:=1 to n do

 begin

   a[i]:=random(99)+1;

   write(a[i],' ');

 end;

 writeln;

 write('vvedite k,l (klt;l) : ');

 readln(k,l);

for i:=k to (l-k)div 2+k do

begin

buf:=a[k];

a[k]:=a[l];

a[l]:=buf;

 k:=k+1;  

 l:=l-1;

end;

for i:=1 to n do write(a[i],' ');

readln;

end.

==================================================================

const

 nm=100;

var

 a,b: array[1..nm] of integer;

 i,n:  integer;

begin

 randomize;

 write('vvedite ngt;10 ');

 readln(n);

 writeln('ishodniy massiv a:');

 for i:=1 to n do

 begin

   a[i]:=random(99)+1;

   write(a[i],' ');

 end;

 writeln;

 for i:=1 to n do

if ilt;=10 then b[i]:=a[i]+i

else b[i]:=a[i]-i;

writeln('massiv b:');    

  for i:=1 to n do write(b[i],' ');

 readln;

end.

Danil Kolonkov
спасиииьо огромное ее
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт