Admiralchik29

18.11.2021 10:52 •  Информатика

Что не так с программами? Пытаюсь исправить и все равно ничерта не работает, потерялся в структуре программы. Задачи нужно написать по блок-схемам исправить неправильный код. программа по сортировке простым выбором:
program sort;

const
N = 10;

var
a: array[1..N] of integer;
i, j, min, k, c: integer;

begin
write('Введите элементы массива: ');
readln(a);
for i :=1 to N - 1 do begin
k:=1;
min:=a[i];
for j:= i+1 to N do
if a[j] < min then
begin
min := a[j];
c:=a[k];
a[k]:=a[i];
end;
end;
write(min, ' ');
end.

Сортировка простым обменом:
program sort2;

const
N = 10;

var
a: array[1..N] of real;
i, j, b: integer;

begin
writeln('Введите элементы: ');
readln(a);
for i := 2 to N do begin
for j := N to i - 1 do
if a[j] < a[j - 1] then begin
b := a[j];
a[i] := a[i - 1]
end;
end;
for i:=1 to N do
writeln(a[i], ' ');
end.