Var ar:array[1..n] of integer; i,j,k:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(-3,3); write(ar[i]:4); end; for i:=1 to n-1 do {ммм, пузырёк. Но за быструю сортировку здесь репортят} for j:=i 1 to n do if ar[i]>ar[j] then begin k:=ar[i]; ar[i]:=ar[j]; ar[j]:=k; end; writeln; writeln('Sorted array:'); for i:=1 to n do write(ar[i]:4); writeln; for i:=1 to n do if ar[i]=0 then begin write('Index of 0 is ',i); break; end; end.
Пример работы программы: First array: -2 -3 0 -3 3 Sorted array: -3 -3 -2 0 3 Index of 0 is 4
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
