Версия для печати темы

Автор: Танька 8.04.2006 23:43

Привет всем, программирвание от меня на самом деле очень далеко. Но вот по специальности нужно... Изучаю Паскаль недавно... и ещё многово не понимаю... Вот например одно из домашних заданий, помогите пожалуйста, я знаю оно очень простое, но я со своими мозгами не "вкуриваю"... (в FAQ'e искала не нашла)

Есть массив чисел (любой, заполните его любыми извест. способами). Распечатать этот массив по возрастанию - т.е. сначала минимальный элемент, и т.д. по возрастанию.

Если можно наиболее простым способом, без всяких там процедур и функций.... зарание спасибо...

Автор: klem4 8.04.2006 23:47

Танька, держи, проще некуда

uses crt;

var

  x : array [1..100] of integer;
  i,n, temp : integer;

  flag : boolean;

begin

  clrscr;

  write('n = ');

  readln(n);

  writeln; 

  for i := 1 to n do begin
    write('x[', i, ']=');
    readln(x[i]);
  end;

 repeat
   flag := true;
   for i := 1 to n-1 do
    if not(x[i] <= x[i+1]) then begin
      temp := x[i];
      x[i] := x[i+1];
      x[i+1] := temp;
      flag := false;
    end;
 until flag;

  writeln;

  for i := 1 to n do writeln('x[', i, ']=', x[i]);

  readln;
end.

Автор: Танька 8.04.2006 23:49

Спасиб, ты меня извини что я тебя отвлеклаю такими глупостями . . .

Автор: volvo 8.04.2006 23:50

klem4,