Помогите, пожалуйста!!!
Turbo Pascal
Создайте массив, содержащий 20 различных целых чисел. Отсортируйте первую половину массива по возрастанию, а вторую по убыванию. Все четные элементы массива увеличить в три раза, а нечетные в 2 раза. содержимое обработанного таким образом массива вывести на экран.
Ответы
Ответ дал:
0
var j, i, x:integer; a: array [1..20] of integer;
begin
randomize;
writeln();
for i := 1 to 20 do
a[i] := random(1000);
for j := 2 to 10 do
for i := 10 downto j do
if a[i] < a[i - 1]
then
begin
x := a[i];
a[i] := a[i - 1];
a[i - 1] := x;
end;
for j := 12 to 20 do
for i := 20 downto j do
if a[i] > a[i - 1]
then
begin
x := a[i];
a[i] := a[i - 1];
a[i - 1] := x;
end;
for i := 1 to 20 do
if i mod 2 = 0
then
a[i] := 3 * a[i]
else
a[i] := 2 * a[i];
writeln();
for i := 1 to 20 do
write(a[i], ' ');
end.
begin
randomize;
writeln();
for i := 1 to 20 do
a[i] := random(1000);
for j := 2 to 10 do
for i := 10 downto j do
if a[i] < a[i - 1]
then
begin
x := a[i];
a[i] := a[i - 1];
a[i - 1] := x;
end;
for j := 12 to 20 do
for i := 20 downto j do
if a[i] > a[i - 1]
then
begin
x := a[i];
a[i] := a[i - 1];
a[i - 1] := x;
end;
for i := 1 to 20 do
if i mod 2 = 0
then
a[i] := 3 * a[i]
else
a[i] := 2 * a[i];
writeln();
for i := 1 to 20 do
write(a[i], ' ');
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад