Привет всем, программирвание от меня на самом деле очень далеко. Но вот по специальности нужно... Изучаю Паскаль недавно... и ещё многово не понимаю... Вот например одно из домашних заданий, помогите пожалуйста, я знаю оно очень простое, но я со своими мозгами не "вкуриваю"... (в 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,
Цитата(Танька @ 8.04.2006 19:43)
Есть массив чисел (любой, заполните его любыми извест. способами). Распечатать этот массив по возрастанию - т.е. сначала минимальный элемент, и т.д. по возрастанию.
P.S. Вот теперь похоже ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.