Лучшие помощники
- Megamozg 2165 б
- Matalya1 1800 б
- DevAdmin 1675 б
- arkasha_bortnikov 725 б
- Dwayne_Johnson 705 б
3 апреля 2023 01:42
472
Составить программу на Паскале сортировки массива по возрастанию
1
ответ
Сортировка методом пузырька:
const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
for i:=1 to n do write(a[i],' ');
End.
const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
for i:=1 to n do write(a[i],' ');
End.
0
·
Хороший ответ
5 апреля 2023 01:42
Остались вопросы?
Еще вопросы по категории Информатика
Помогите расшифровать двоичный код, пожалуйста: 10010111 10000000 10010010...
Напишите программу, которая получает из входных данных строку, состоящую не менее чем из трёх слов,. Программа должна перестапвить местами второе и тр...
package com.tetris.tetris;
import android.content.Context;
import android.graphics.Canvas;
import android.graphics.Color;
import android.graphic...
ФУНКЦИЯ. ПОМОГИТЕ С ИНФОРМАТИКОЙ, ПОЖАЛУЙСТА!!...
Даны две точки в плоской прямоугольной системе координат. Напишите программу,определяющую, которая из точек находится ближе к началу координат....
Все предметы