CD дискінін (XI тарау) практикалыс жаттығу
бөлімінде берілген «Векторлық кескіндерді құру» така
бындағы мәтінді тақырыпшаларға бөліп, олардан мазму
құрыңдар.

Question

Информатика: CD дискінін (XI тарау) практикалыс жаттығу бөлімінде берілген «Векторлық кескіндерді құру» така бындағы мәтінді тақырыпшаларға бөліп, олардан мазму құрыңдар.​

karabanovaann · Accepted Answer

Const
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
flag:boolean;

begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
    a[i] := random(101)-50;
    Write(a[i]:4)
end;
Writeln;
i:=1;
repeat
    flag:=true;
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
    Inc(i);
until (i>n-1) or flag;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.

Тестовое решение:
Исходный массив
-32 -7   2   2 50 -33   1 31   4 -16
Отсортированный по возрастанию массив
-33 -32 -16 -7   1   2   2   4 31 50

CD дискінін (XI тарау) практикалыс жаттығубөлімінде берілген «Векторлық кескіндерді құру» такабындағы мәтінді тақырыпшаларға бөліп, олардан мазмуқұрыңдар.​

MOGZ ответил

CD дискінін (XI тарау) практикалыс жаттығу
бөлімінде берілген «Векторлық кескіндерді құру» така
бындағы мәтінді тақырыпшаларға бөліп, олардан мазму
құрыңдар.