Предмет: Информатика, автор: nurr322

Задание на паскале
Дан численный массив M, элементы которых упорядочены по возрастанию и число a. Не нарушая порядок возрастания элементов включить число a в массив M.

Ответы

Автор ответа: LordStatski

const n=11;

var b:array[1..n] of integer;

i,j,c,a:integer;

begin

randomize;

for i:=1 to n-1 do begin

b[i]:=random(50);

write(b[i]:3);

end;

writeln;

for i:=1 to n-2 do

for j:=n-2 downto i do

if b[j]>b[j+1] then begin

c:=b[j];

b[j]:=b[j+1];

b[j+1]:=c;

end;

writeln;

writeln('Введите число а');

read(a);

writeln('a= ',a);

b[n]:=a;

for i:=1 to n do

write(b[i]:3);

end.

LordStatski: Да... мне еще учиться и учиться. Забавно то, что моя программа не воспринимает ваше решение, хотя версия нужная стоит.

Аноним: В смысле "не воспринимает"? Что пишет?

Аноним: Чаще всего это проблема вставки через буфер из браузера. Тут гарантированно все работает только в браузере Mozilla FireFox. В остальных браузерах помогает копирование сначала в Блокнот, а уже оттуда в программную среду.

LordStatski: М, все нормально. Просто если копировать, получается, что пробел впереди мешает запуску.

LordStatski: Да, я уже понял.

Аноним: Ну вот теперь Вы можете в оболочке просто наводить курсор на непонятные слова и будет Вам подсказка.

LordStatski: Так всегда и делаю. Спасибо, теперь я буду знать больше :)

Аноним: А Вам действительно хочется знать больше?

LordStatski: Да. Я хочу учиться на программиста потом. Вот, начинаю с малого.

Аноним: Тогда Вам стоит уделить внимание этой версии языка. Она - это C#, Питон и Хаскель "в одном флаконе". Отсюда и волшебная эффективность программирования.

Автор ответа: Аноним

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var M:=SeqRandom(ReadInteger('n='),-99,99).Sorted.ToArray; M.Println;
var a:=ReadInteger('Введите вставляемое число:');
var i:=M.FindIndex(t->t>a);
if i>-1 then M:=M?[:i]+Arr(a)+M?[i:]
else M:=M+Arr(a);
M.Println
end.

Приложения: