Паскаль. Три задачи на массивы

[Margosham-k]

Паскаль. Три задачи на массивы

люююди, помогите пожалуйста!!!! нужно решить!!
Array65. Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать массив, увеличив каждый его элемент на исходное значение элемента A в степени K.
Array91. Дан массив размера N и целые числа K и L (1< либо = K < L < либо = N). Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива и его содержимое.
Array113. Дан массив A размера N (< либо = 6). Упорядочить его по возрастанию методом сортировки простым выбором: найти максимальный элемент массива и поменять его местами с последним (N-м) элементом; выполнить описанные действия N ¡1 раз, каждый раз уменьшая на 1 количество анализируемых элементов и выводя содержимое массива.


Буду очень благодарна!!! завтра это мне срочно нужно..не успеваю(((

[mod2]У нас не принято цепляться к чужим темам. Создавайте свои!
Модератор[/mod2]

 

[Vladimir_S]

Array65. Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать массив, увеличив каждый его элемент на исходное значение элемента A в степени K.

Тут я, извините, не очень понимаю. Из каких чисел состоит массив? Какова максимальная его длина? Дело в том, что тут запросто можно вылететь в такие огромные числа, что никакой разрядной сетки не хватит. Так что требуется уточнение условия.

Array91. Дан массив размера N и целые числа K и L (1< либо = K < L < либо = N). Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива и его содержимое.

VAR
 N,N1,K,L,D,i:Byte;
 A:Array[1..255] of Word;
BEGIN
 Randomize;
 Write('N = ');
 Readln(N);
 Write('K (<N) = ');
 Readln(K);
 Write('L (>K, <=N) = ');
 Readln(L);
 For i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
  end;
 Writeln;
 Writeln;
 D:=L-K+1;
 N1:=N-D;
 Writeln('N1 = ',N1);
 For i:=1 to N do
  If i>L then A[i-D]:=A[i];
 For i:=1 to N1 do
  Write(A[i]:4);
 Readln;
END.

Array113. Дан массив A размера N (< либо = 6). Упорядочить его по возрастанию методом сортировки простым выбором: найти максимальный элемент массива и поменять его местами с последним (N-м) элементом; выполнить описанные действия N ¡1 раз, каждый раз уменьшая на 1 количество анализируемых элементов и выводя содержимое массива.

VAR
 N,i,j,k,Mx,Imax:Byte;
 A:Array[1..6] of Word;
 Dummy:Word;
BEGIN
 Randomize;
 Write('N = ');
 Readln(N);
 For i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
  end;
 writeln;
 For i:=N downto 2 do
  begin
   Mx:=A[i];
   Imax:=i;
   For j:=i-1 downto 1 do
    if A[j]>Mx then
     begin
      Mx:=A[j];
      Imax:=j;
     end;
   Dummy:=A[i];
   A[i]:=A[Imax];
   A[Imax]:=Dummy;
   for k:=1 to N do write(A[k]:4);
   Writeln;
  end;
 Readln;
END.

 

[Margosham-k]

ой, извините пожалуйста!!
там задание заканчивается не "в степени K" а "Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать
массив, увеличив каждый его элемент на исходное значение элемента
Aк-ого."

 

[Vladimir_S]

ой, извините пожалуйста!!
там задание заканчивается не "в степени K" а "Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать
массив, увеличив каждый его элемент на исходное значение элемента
Aк-ого."

Ну тогда-то что...

VAR
 N,K,D,i:Byte;
 A:Array[1..255] of Word;
BEGIN
 Randomize;
 Write('N = ');
 Readln(N);
 Write('K (<=N) = ');
 Readln(K);
 For i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
  end;
 writeln;
 D:=A[K];
 For i:=1 to N do
  begin
   A[i]:=A[i]+D;
   Write(A[i]:4);
  end;
 Readln;
END.

 

[Margosham-k]

спасибо Вам большое! вы замечательные!! очень меня выручили...я только поражаюсь вашим умом и добротой... хочу тоже быть такой же умненькой и щелкать как орешки такие задачки)))
научииите, а)))

еще раз, спасибо вам огромное! замечательный форум с замечательными людьми!