Вывести рост учеников по списку - Turbo Pascal
Формулировка задачи:
QBasic
Вывод на экран:
Pascal
Вывод на экран:
Нужно, чтобы и на выходе в Паскале было также как в QBasic:
150 160 170 180 190
Не получается
Решение задачи: «Вывести рост учеников по списку»
textual
Листинг программы
uses crt; var r:array[1..30] of integer; n,i,j,x:integer; begin clrscr; write(' Кол. учеников в классе n='); readln(n); writeln('Введите рост учеников:'); for i:= 1 to n do readln(r[i]); for i:=1 to n-1 do for j:=i+1 to n do if r[i]>r[j] then begin x:=r[i]; r[i]:=r[j]; r[j]:=x; end; writeln('Рост учеников по возрастанию:'); for i:= 1 to n do write(r[i]:4); readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д