Регистрация
Kirill91623
04.06.2023 14:46
Информатика
Есть ответ 👍

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

113
241
Посмотреть ответы 2

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

SuperMine
SuperMine
4,6(9 оценок)

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.

МасяшкаМ
МасяшкаМ
4,6(9 оценок)

var x,c: real;

begin

read(x);

c: =frac(c);

writeln(c: 1: 6);

readkey;

end. 

 

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