Написать программу. Дан одномерный целочисленный массив, состоящий из 10 элементов. Заполнить массив числами последовательно: 10,9, 8...1.

Не верно

У тебя масив выходит от 1 до 10, а нужно от 10 до 1

Не спорю. Но, согласитесь, первый вариант выглядел эпично.

Это про тот что ты написал раньше?

Да, там была не совсем адекватная сортировка пузырьком. Не хотел напрягаться.

uses crt;var a: array[1..10] of integer; i: integer;Beginfor i := 1 to 10 dobegina[i] := 11 - i;write(a[i],' ');end;end.