В памяти есть массив из 20 частей. Выстроить новый массив,элементы которого
В памяти есть массив из 20 элементов. Выстроить новый массив,
элементы которого больше 5 и входят в начальный массив и
расположений в порядке возрастания.
Марговская
Ангелина
Числа в исходный массив необходимо вводить с клавы либо прога должна его сама его случайно сгенерировать?
Александр Чикурин
с клавы
Арсений Потураев
На каком языке?
1 ответ
Колек
Cортировка была реализована способом пузырька
var i, n, j, b, k: integer;
M, A: array [1..20] of integer;
begin
n := 1;
for i := 1 to 20 do
begin
read (M[i]);
if M[i] gt; 5 then
begin
A[n] := M[i];
inc(n);
end;
end;
for j := 1 to n - 1 do
for i := 1 to n - j do
if A[i] gt; A[i + 1] then
begin
b := A[i];
A[i] := A[i + 1];
A[i + 1] := b;
end;
write('Исходный массив: ');
for i := 1 to 20 do
write (M[i], ' ');
writeln;
write('Новый массив: ');
for i := 1 to n do
write (A[i], ' ');
end.
var i, n, j, b, k: integer;
M, A: array [1..20] of integer;
begin
n := 1;
for i := 1 to 20 do
begin
read (M[i]);
if M[i] gt; 5 then
begin
A[n] := M[i];
inc(n);
end;
end;
for j := 1 to n - 1 do
for i := 1 to n - j do
if A[i] gt; A[i + 1] then
begin
b := A[i];
A[i] := A[i + 1];
A[i + 1] := b;
end;
write('Исходный массив: ');
for i := 1 to 20 do
write (M[i], ' ');
writeln;
write('Новый массив: ');
for i := 1 to n do
write (A[i], ' ');
end.
Милана Лабутис
спс большое)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов