Помогите пожалуйста с информатикой в паскале2. Заменить элементы массива с k1-го
Помогите пожалуйста с информатикой в паскале
2. Заменить элементы массива с k1-го по k2-ой на те же элементы в обратном порядке.
3. Из частей массива А сформировать массив В той же размерности по правилу: первые 10 частей находятся по формуле B[i]=A[i]+i, другие по формуле B[i]=A[i]-i.
Ответ:
Разъяснение:
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.