Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • varA: array[1..8] of integer;i,k,t:integer;beginfor i:=1 to 8 doReadln(A[i]);

    for k:= 8 downto 2 dobegin 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.

    • Автор:

      celsoia8y
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years