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

Question

Информатика

Майка

13 ноября, 19:10

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

+3

Ответы (1)

Знаете ответ на вопрос?

Каринка · Answer 1

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.