Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / PUZYR
.PAS program puzyr;
var
b:array[1..20] of real;
m,i,j:integer;
s:real;
BEGIN
write('ўўҐ¤ЁвҐ а §¬Ґа®бвм ¬ ббЁў ');
readln(m);
write('ўўҐ¤ЁвҐ ¬ ббЁў');
for i:=1 to m do
read(b[i]);
for i:=1 to m do
for j:=1 to m-i do
if b[j]>b[j+1]
then begin
s:=b[j];
b[j]:=b[j+1];
b[j+1]:=s;
end;
for i:=1 to m do
writeln(trunc(b[i]));
readln
END.
var
b:array[1..20] of real;
m,i,j:integer;
s:real;
BEGIN
write('ўўҐ¤ЁвҐ а §¬Ґа®бвм ¬ ббЁў ');
readln(m);
write('ўўҐ¤ЁвҐ ¬ ббЁў');
for i:=1 to m do
read(b[i]);
for i:=1 to m do
for j:=1 to m-i do
if b[j]>b[j+1]
then begin
s:=b[j];
b[j]:=b[j+1];
b[j+1]:=s;
end;
for i:=1 to m do
writeln(trunc(b[i]));
readln
END.
Соседние файлы в папке Alex