Дан массив состоящий из 8 элементов , отсортировать его по возрастанию

sarranuryeva sarranuryeva    2   17.05.2019 17:30    1

Ответы
ученик1890 ученик1890  10.06.2020 22:34

var
A: array[1..8] of integer;
i,k,t:integer;
begin
for i:=1 to 8 do
Readln(A[i]);

for k:= 8 downto 2 do
begin
for i:=1 to k-1 do
begin
if A[i+1] < A[i] then
begin
t:=A[i];
A[i]:=A[i+1];
A[i+1] := t;
end;
end;
end;
for i:=1 to 8 do


Write(A[i],' ');

readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика