Технический форум - Паскаль. Три задачи на массивы

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Паскаль. Три задачи на массивы (http://www.tehnari.ru/f41/t60869/)

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

люююди, помогите пожалуйста!!!! нужно решить!!
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 количество анализируемых элементов и выводя содержимое массива.

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

Замечание:

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

Цитата:

Сообщение от Margosham-k (Сообщение 630523)

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

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

Цитата:

Сообщение от Margosham-k (Сообщение 630523)

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.

Цитата:

Сообщение от Margosham-k (Сообщение 630523)

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.

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

Цитата:

Сообщение от Margosham-k (Сообщение 630635)

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

Код:

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.

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

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