4 года назад

Помогите пожалуйста с простой сортировкой в PASCAL!

Знания

Информатика

1 ответ:

KARINANN [28]4 года назад

0 0

Ответ:

var j,i,k,n:integer;

m:array[1..1000] of integer;

begin

read(n,k);

//Ввод элементов массива

for i:=1 to n do

read(m[i]);

//Сортировка по возрастанию

for i:=1 to k do

for j:=i to k do

if m[j]<m[i] then swap(m[i],m[j]);

//Сортировка по убыванию

for i:=k+1 to n do

for j:=i to n do

if m[j]>m[i] then swap(m[i],m[j]);

//Вывод элементов массива

for i:=1 to n do

print(m[i]);

end.

Читайте также

В трехзначном числе зачеркнули его последнюю цифру.Когда в оставшемся двузначном числе переставили цифры , а затем приписали к н

ДядькаСашка [129]

X - abc
ab
ba
n - bac
\\\\\\\\\\\\\\\\\\\
var
x, n: integer;
a: array [1..4] of char; //Пусть тут хранятся символы, 4-ый - буфер для обмена

begin
readln(n);
for x := 1 to 3 do
a[x] := n.ToString()[x]; //Заполняем массив цифрами числа
a[4] := a[1];
a[1] := a[2];
a[2] := a[4];
x := strtoint(a[1] + a[2] + a[3]); //Переводим "правильный" массив в число
writeln(x);
end.

0 0

1 год назад

Считая, что каждый символ кодируется одним байтом, определите, чем равен информационный объем следующего высказывания Рене Декар

Katmama

Высказывание "Я мыслю, следовательно, существую." состоит из 34 символов. Объем = 34*1 байт = 34*8 бит = 272 бита.

0 0

4 года назад

1) Определите значение целочисленных переменных a и b после выполнения фрагмента программы:a := 3 + 8*4;b := (a div 10) + 14; a

Ирина Демирова [2]

1) Конечная переменная a=9 ; b=17
2) Конечная переменная a= ; b=
3) Конечная переменная a=14 ; b=42
4) Конечная переменная x=2 ; y=5 ; t=5
5) Конечная переменная a=3 ; b=12

0 0

4 года назад

Запишите числа в развёрнутом виде: 1233,21(10) 1233,2(8) 12,3(16) 12,3(5) Числа в скобках означают основание. Если ещё и с 8 с ф

Яна112 [32]

1233,21(10)=1*10^3+2*10^2+3*10^1+3*10^0+2*10^-1+1*10^-2
1233,2(8)=1*8^3+2*8^2+3*8^1+3*8^0+2*8^-1
12,3(16)=1*16^1+2*16^0+3*16^-1
12,3(5)=1*5^1+2*5^0+3*5^-1

0 0

4 года назад

Напишите программу,которая в последовательности натуральных чисел определяет сумму чисел,кратных 3.Программа ролучает на вход ко

лекаольга

Var
n, a, s,i: integer;

begin
s := 0;
read(n);
for i := 1 to n do
begin
read(a);
if(a mod 3 = 0) then s := s + a;
end;
write(s);
end.

VVVVVVVVVVVVVV

0 0

4 года назад