Упорядочите элементы массива А в порядке убывания В Pascal ABC

Question

Упорядочите элементы массива А в порядке убывания В Pascal ABC

Answer 1

58

qubiqvqube

15 апреля 2023

uses crt; var a: array [1… 100]of integer; n,i,j,k,x: integer; beginclrscr; randomize; write ('n='); readln (n); writeln ('Ishodnyj massiv: '); for i: =1 to n do begin a[i]: =random (200); write (a[i],'); end; writeln; for i: =2 to n do begin x: =a[i]; j: =1; while x>a[j] do inc (j); for k: =i-1 downto j do a[k+1]: =a[k]; a[j]: =x; end; writeln ('Otsortirovannyj massiv: '); for i: =1 to n dowrite (a[i],'); readlnend.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: