Доброе утро, помогите, пожалуйста, начертить блок-схему по заданию: Задана одномерная числовая таблица из n элементов. Расставить элементы в таблице в порядке возрастания их значений.
Буду очень благодарна. Заранее спасибо
Ответы
Ответ дал:
0
uses crt;
const n:Integer;
var a:array[1..20] of integer; // 20 это предустановлена в условии граниа не указанно можно 99 поставить
i,j,k:integer;
begin
randomize; // это для генерации случайных чмсел у тебя могут быть предусановлены
for i:=1 to n do
a[i]:=random(99); // ну собственно генерация чисел от 0 до 99( в блок схеме это не нужно)
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k; end;
end.
немного линни не пямые )) но разобратся сможешь
Приложения:

Похожие вопросы
2 года назад
2 года назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад