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

Question

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

Comments

На самом деле достаточно в цикле записать 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.

Answer 1

var ar:array[1..10] of integer;
i,n:integer;
begin
writeln('Array');
n:=1;
for i:=10 downto 1 do
begin;
ar[i]:=n;
writeln('ar[',n,']=',ar[i]);
n+=1;
end;
end.

Comments

Не верно

---

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

---

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

---

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

---

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

Answer 2

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.