Регистрация
Сашаawalon
23.04.2023 13:20
Информатика
Есть ответ 👍

:написать программу на паскале, с (с++) или бейсике. входной файл: input.txt. выходной файл: output.txt. ограничение времени выполнения программы: 1 секунда на тест. спецификация входа: в первой строке входного файла записано целое число n (1 n 1000), во второй строке файла записаны целые числа x1, x2, xn, (-109 xi 109). спецификация выхода: запишите в выходной файл числа xi в порядке неубывания. пример входа: 5 12 10 5 10 7 пример выхода: 5 7 10 10 12

107
462
Посмотреть ответы 2

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

varvara92
varvara92
4,8(74 оценок)

program exs; var a : array [1..1000] of integer; n, i : integer;

procedure qsort(l, r: integer); var i, j, key, buf : integer; begin i : = l; j: = r; key: =a[(l+r) div 2]; repeat while a[i] < key do inc(i); while a[j] > key do dec(j); if i< =j then begin buf: =a[i]; a[i]: =a[j]; a[j]: =buf; inc(i); dec(j); end; until (i> j); if (l < j) then qsort(l, j); if (i < r) then qsort(i, r); end;

begin readln(n); for i: = 1 to n do begin read(a[i]); end; qsort(1, n); for i: =1 to n do begin write(a[i], ' '); end; end.

kirillmajer2007
kirillmajer2007
4,4(93 оценок)
Var       mx, ind: integer;       n, m, i, j: integer;     b: array of integer;     a: array of array of integer; begin     read(n); setlength(a, n+1);       for i : = 1 to n do setlength(a[i], n+1);     for i : = 1 to n do             for j : = 1 to n do read(a[i][j]);       setlength(b, n+1);       for i : = 1 to n do b[i] : = a[i][i];       mx : = b[1]; ind : = 1;       for i : = 2 to n do              if (mx < b[i]) then begin                    mx : = b[i]; ind : = i; end;       write('макс. элемент гл. диагонали - b[',ind,'] = ', mx); end. или намного проще (если  нужен  только  ответ): var       mx, ind, el: integer;       n, m, i, j: integer; begin       read(n);       // присваем макс. элементу самое минимальное число,       // которое точно не встретится в массиве       mx : = -999999999;       for i : = 1 to n do             for j : = 1 to n do begin                     read(el);                   if (i < > j) then continue;                   if (mx < el) then begin                          mx : = el; ind : = i; end; end;       write('макс. элемент гл. диагонали - b[',ind,'] = ', mx); end.

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