• 1) Заполнить массив A, состоящий из n (1<=n<=10000) элементов случайными целыми числами в диапазоне [-10^9..+10^9].
    2) Отсортировать массив A в порядке неубывания элементов.

Ответы 3

  • Спс за решение!
    • Автор:

      penny68
    • 6 лет назад
    • 0
  • Var a:array[1..10] of integer;i:integer;BeginFor i:=1 to 10 doa[i]:=Random(10)+1;writeln ('Исходный массив');For i:=1 to 10 dobeginwrite (a[i], ' ');end;writeln;writeln ('Есть ли в массиве элемент, равный 5?');if a[i]=5 then write ('Да') else write ('Нет')End. 
  • //прога на Pascal`еvara: array of longint;n, i: longint;//procedure zam(var a, b: longint);var pz: longint;beginpz:=a;a:=b;b:=pz;end; procedure selectsort (rm : longint; var sortmas: array of longint);vari, j, min: longint;begin      for i:=0 to rm-2 dobeginmin:=i;for j:=i to rm-1 doif sortmas[min]>sortmas[j] then min:=j;         if i<>min then zam (sortmas[i], sortmas[min]);end;end;//beginrandomize;readln (n);setLength (a, n);for i:=0 to n-1 doa[i]:=random (2*1000000000) - 1000000000;writeln (a);selectsort (n, a);writeln (a);end.
    • Автор:

      javion
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years