Вывести рост учеников по списку - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.429 из 5
Похожие ответы