Дан массив В(20). Заполните его случайными числами в интервале [0,100]. Отсортируйте по...

Question

Дан массив В(20). Заполните его случайными числами в интервале [0,100]. Отсортируйте по убыванию и выведите массив на экран.
для паскаля

Answer 1

Program arra;
const m=20;
var
B: Array[1..m] Of Integer;
i,j,k:integer;
BEGIN
randomize;
for i:=1 to m do begin 
B[i]:= random(101); 
end;  

write('Массив до сортировки: ');
 for i:=1 to m do begin
 write(B[i]); 
write(' '); 
end; 
writeln;
for i := 1 to m-1 do       
for j := 1 to m-i do       
    if B[j] < B[j+1] then begin     
           k := B[j];           
    B[j] := B[j+1];         
      B[j+1] := k       
    end;         
  write('Массив после сортировки: ');     
      for i:=1 to m do begin 
write(B[i]);
 write(' '); 
end; 
end.

Comments

Я не против перехода на новую строку, я о том, что оператор writeln(); синтаксически неверен, нужно писать или writeln; или указывать какое-то значение параметра.

---

Понял вашу позицию, хоть с ней и не согласен. Разницы не вижу. Прошу поправить границы массива ( B[i]:= random(101); ) и убрать эти ненавистные скобки, на ваше усмотрение.
Мне к сожалению система изменить уже не позволяет.

---

Поправил, спасибо

---

С чем именно Вы несогласны? С компилятором языка Паскаль, который сообщает о синтаксической ошибке в операторе writeln(); ? Так это не ко мне вопрос...

---

Хм.. Писал я тут http://pascalabc.net/WDE/
Ошибок не находит.. Можете сами попробовать. Скрин отправить не могу.
Думаю это недаразумение, положусь на ваш опыт знания паскаля

---

А что касается "Прошу поправить..." - никто, кроме авторов вопроса или ответа, даже Администратор, не имеет технической возможности править их тексты.

---

Буду иметь в виду

---

тогда осталось выяснить с несогласием.

---

Ваша правда

---

Понятно, вопрос закрыт.