Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре. Пример: Исходный
10-11 класс
|
массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58
говорили про какой-то метод пузырька. хелп ми Т_т
p.s. паскаль abc
ребят ,если честно - срочно...
const
n = 10;
var
a:array[1..n] of integer;
i, j:integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(101);
write(a[i], ' ');
end;
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] mod 10 > a[j + 1] mod 10 then
begin
a[j] := a[j] + a[j + 1];
a[j + 1] := a[j] - a[j + 1];
a[j] := a[j] - a[j + 1];
end;
writeln;
writeln('Результат:');
for i := 1 to n do
write(a[i], ' ');
writeln;
end.
var
A: array [1..10] of integer;
i, j, n, temp: integer;
begin
randomize();
n := 10;
for i := 1 to n do
begin
A[i] := random(100);
write(A[i], ' ');
end;
for j := 1 to n - 1 do
begin
for i := 1 to n - j do
begin
if a[i] mod 10 < a[i + 1] mod 10 then begin
temp := a[i];
a[i] := a[i + 1];
a[i + 1] := temp;
end;
end;
end;
writeln();
for i := 1 to n do
write(A[i], ' ');
end.
Другие вопросы из категории
экран исходный массив и найденное кол-во.
сокращения одновременного массива путем удаления каждого второго элемента
ограничена).
Программа Delphi
Заранее благодарю!
Читайте также
есть ли в нем одинаковые соседние элементы.
Пример:
Исходный массив:
4 0 1 2 0 1 3 1 1 0
Заранее огромное спасибо!!!!
Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальные a[4]=10, a[7]=8
3 4 1 0 что ищем? 0 А[2], А[5], А[10]
народ срочно нужно, помогите плиз
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы