Цитата:
Сообщение от Margosham-k
Array65. Дан массив A размера N и целое число K (1 < либо = K < либо = N). Преобразовать массив, увеличив каждый его элемент на исходное значение элемента A в степени K.
|
Тут я, извините, не очень понимаю. Из каких чисел состоит массив? Какова максимальная его длина? Дело в том, что тут запросто можно вылететь в такие огромные числа, что никакой разрядной сетки не хватит. Так что требуется уточнение условия.
Цитата:
Сообщение от Margosham-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.
Цитата:
Сообщение от Margosham-k
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.