задачка про одномерный массив

[masil]

накидайде пожалуйста рабочую программу,а то препод завалил работами меня
задачка звучит так:

Имеется массив А,содержащий n элементов. Разместить элементы массива в порядке возрастания значений.

буду признательна за любую помощь

[alex_fcsm]

Банальная сортировка

uses crt;
const n=10;
var i,j,temp:integer;
     a:array[1..n] of integer;

begin
clrscr;
randomize;
 for i:=1 to n do
  begin
   a[i]:=random(100);
   write(a[i],' ');
  end;
writeln;
  for i:=2 to n do
    for j:=n downto i do
      if a[j-1]>a[j] then
        begin
          Temp:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=temp;
        end;
writeln;
for i:=1 to n do
 write(a[i],' ');
end.

[masil]

спасибки тебе сейчас постараюсь блок схемку сама нарисовать ! ты мастер ! :-*

[sverhuVniz]

зачем так долго?

[sverhuVniz]

program puzirok;
var a:array [1..100] of integer;
n,i,k,w:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(20);{заполняем массив случайными числами}
write(a[i]); <<<<<вывод на экран первоначального массива
write(' ');
end;
writeln;
for w:=1 to n-1 do <<<<сотртировка методом пузырька
for i:=1 to n-w do
if a[i]>a[i+1] then
begin
k:=a[i+1];
a[i+1]:=a[i];
a[i]:=k;
end;
for i:=1 to n do <<<<вывод полученного массива
begin
write(a[i]);
write(' ');
end;
writeln;
end.

[sverhuVniz]

каждый челове должен уметь делать простую сортировку методом пузырька

[sverhuVniz]

вот те на будущие сам цикл сортировки
for w:=1 to n-1 do <<<<сотртировка методом пузырька
for i:=1 to n-w do
if a[i]>a[i+1] then
begin
k:=a[i+1];
a[i+1]:=a[i];
a[i]:=k;
end;

[Arigato]

каждый челове должен уметь делать простую сортировку методом пузырька

Каждый программист должен знать о существовании линейной сортировки:

const N = 10;
var A: array[1..N] of Byte;
    Sort: array[Byte] of Byte;
    I, J: Integer;
begin
  Randomize;
  for i:=1 to n do
    begin
     a[i]:=random(100);
     write(a[i],' ');
    end;
  writeln;
 
  FillChar (Sort, SizeOf (Sort), 0);
  for I := 1 to N do {<<<<сотртировка линейным методом}
    Inc (Sort[A[I]]);

  for I := 0 to 255 do {<<<<вывод полученного массива}
    for J := 1 to Sort[I] do
      Write (I, ' ');

  ReadLn;
end.

[masil]

alex_fcsm, Arigato спасибо и то и то подходит :-*
-
не хочется создавать мне новый топик,я напишу здесь.

в общем задачка про работу с 2-х мерными массивами задали,как с этим работать я не совсем разобралась(

задачка:

Дана матрица,размеры которой 10 x 10,найти максимальное среди сумм элементов диагоналей параллельных главной.

напишите работающий код пожалуйста буду вам очень благодарна