profile
Опубликовано 5 лет назад по предмету Информатика от кпппппппппп

заполнить массив состоящие из 50 элементов в автоматическом режиме и выполнить сортировку

  1. Ответ
    Ответ дан BiFi
    Сортировка по возрастанию.
    Program BiFi;
    Const n=50;
    Var a:array[1..n] of real;
    i,j:integer;
    k:real;
    Begin
    for i:=1 to n do a[i]:=random(100);
    for i:=1 to n-1 do
    for j:=i+1 to n do if a[j]<a[i] then begin
                                                  k:=a[i];
                                                  a[i]:=a[j];
                                                  a[j]:=k;
                                                  end;
    end.
    1. Ответ
      Ответ дан кпппппппппп
      спасибо большое