Написать программу. Дан одномерный целочисленный массив, состоящий из 10 элементов. Заполнить массив числами последовательно: 10,9, 8...1.
На самом деле достаточно в цикле записать a[i]:=11-i;
// PascalABC.Net 3.0, сборка 1052 begin var a:array[1..10] of integer; for var i:=1 to 10 do a[i]:=11-i; Write(a)end.
Не верно
У тебя масив выходит от 1 до 10, а нужно от 10 до 1
Не спорю. Но, согласитесь, первый вариант выглядел эпично.
Это про тот что ты написал раньше?
Да, там была не совсем адекватная сортировка пузырьком. Не хотел напрягаться.
Uses crt; var a: array[1..10] of integer; i: integer; Begin for i := 1 to 10 do begin a[i] := 11 - i; write(a[i],' '); end; end.