51

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

jaydee 25 февраля 2023

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

категория: информатика

58

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.

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

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
no_problemz, 25 февраля 2023
Ребят, помогите, пожалуйста
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...