Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется Опции

[DAN]

Можете сдесь задавать свои вопросы по этой теме.

[Sandro]

программа нажна..на паскале
значения заданных переменных a,b и с переспределить таким образом что a,b и с станут соответственно наименьшим,срелним и наибольшим значениями.
воть,нужно составить програму,как сказал,на паскале...
пожалуйста

[Gobbs]

программа нажна..на паскале
значения заданных переменных a,b и с переспределить таким образом что a,b и с станут соответственно наименьшим,срелним и наибольшим значениями.
воть,нужно составить програму,как сказал,на паскале...
пожалуйста

Код

program sandro;
uses crt;
const a_count=3;
var a:array[1..a_count] of byte;
temp,i,k:byte;
begin
clrscr;
for i:=1 to sizeof(a) do
    begin
    write('vvedite chislo # ',i,' -->');
    readln(a[i]);
    end;

for i:=1 to sizeof(a)-1 do
    for k:=1 to sizeof(a)-1 do
        if(a[k]>a[k+1])then
          begin
          temp:=a[k];
          a[k]:=a[k+1];
          a[k+1]:=temp;
          end;

writeln('poluchili upor-ii massiv');
for i:=1 to sizeof(a) do
    writeln(i,'-oe chislo-->',a[i]);

readkey;
end.