Регистрация
zakharovserg20
16.09.2021 17:30
Информатика
Есть ответ 👍

10 . нужно было написать код программы, которая продемонстрирует работу сортировки вставками. (т.е. прочитать массив и затем выводить его после каждой вставки). написала, вроде - бы хорошо работает. но вот почему - то выводит одну и ту же строку по два type array_type = array [1..1000] of int64; procedure insertsort(var a: array_type; n: int64); var i, j, l, s: integer; begin for i : = 2 to n do begin l : = a[i]; j : = i - 1; while (j > = 1) and (a[j] > l) do begin a[j + 1] : = a[j]; j : = j - 1; end; a[j + 1] : = l; for s : = 1 to n do write(a[s], ' '); writeln(); end; end; var a: array_type; i, n: int64; begin readln(n); for i : = 1 to n do read(a[i]); insertsort(a, n); for i : = 1 to n do write(a[i], ' '); end.

213
470
Посмотреть ответы 1

Ответы на вопрос:

Tgfdvbgg
Tgfdvbgg
4,5(73 оценок)
Б)uses crt; var s: string;   i,n: byte; begin  clrscr; writeln('введите строку, содержащую точку с запятой"); readln(s); n: =length(s); for i: =1 to n do if s[i]='; ' then s[i]: ='/ '; writeln('замена точек на  / '); write(s); readln end.

Популярно: Информатика