Написать программу, которая сортирует массив из 8 целых элементов по возрастанию.

@romera · Регистрация: 02.06.2011

Author24 — интернет-сервис помощи студентам

@Ev[G]eN · 12.06.2011, 22:53

Pascal

const
 n=8;
var
 arr: array[1..n] of integer;
 i, j, k, buf, min: integer;
begin
 min:=1;
  for i:=1 to n do
   read(arr[i]);
  for i:=1 to n-1 do
   for j:=1 to n-1 do
    if arr[j]>arr[j+1] then
     begin
      buf:=arr[j];
      arr[j]:=arr[j+1];
      arr[j+1]:=buf;
     end;
  for i:=1 to n do
   write(arr[i], ' ');
end.

@~~petro~~ · 12.06.2011, 23:17

Сообщение от romera

Написать программу, которая сортирует массив из 8 целых элементов по возрастанию.

думаю ее можно усложнить

@romera 61 / 61 / 2 Регистрация: 02.06.2011 Сообщений: 86
		1
	Написать программу, которая сортирует массив из 8 целых элементов по возрастанию. 12.06.2011, 22:50. Показов 2597. Ответов 2 Метки нет (Все метки) Написать программу, которая сортирует массив из 8 целых элементов по возрастанию. 1

@~~petro~~ Заблокирован
	12.06.2011, 23:17	3
	Сообщение от romera Написать программу, которая сортирует массив из 8 целых элементов по возрастанию. думаю ее можно усложнить 0

Написать программу, которая сортирует массив из 8 целых элементов по возрастанию.

Решение