Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

program vst;

var c:array [0..100] of integer;

j,n,k,i:integer;

min:integer;

begin

randomize; writeln(n=); read(n);

{блоквводаэлементовмассива}

for i:=1 to n do c[i]:=5-random(10);

{блок вывода массива на экран}

writeln;

for i:=1 to n do write (c[i], );

{нахождение MIN-элемента}

min:=c[1];

for i:=2 to n do

if min>c[i] then min:=c[i];

writeln (min=,min);

{вставка на место указанного k-го места МIN элемента}

writeln(k=); read(k);

for i:=n+1 downto k do c[i]:=c[i-1];

c[k]:=min;

{блок вывода элементов массива}

writeln; for i:=1 to n+1 do write (c[i], );

end.

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

Изменить блок ввода данных таким образом, чтобы массив заполнялся случайным образом в интервале от –15 до 20.

3. Изменить программу так, чтобы была произведена вставка значения элемента, введенного с клавиатуры. Результаты изменения и выполнения программы записать в тетрадь.

Ответ оставил Гость

Чтобы массив заполнялся от -15 до 20:

program vst;
var c:array [0..100] of integer;
j,n,k,i:integer;
min:integer;
begin
randomize; writeln(n=); read(n);
for i:=1 to n do c[i]:=random(36)-15;
writeln;
for i:=1 to n do write (c[i], );
min:=c[1];
for i:=2 to n do
if min>c[i] then min:=c[i];
writeln (min=,min);
writeln(k=); read(k);
for i:=n+1 downto k do c[i]:=c[i-1];
c[k]:=min;
writeln; for i:=1 to n+1 do write (c[i], );
end.

---

Чтобы был ручной ввод:

program vst;
var c:array [0..100] of integer;
j,n,k,i:integer;
min:integer;
begin
writeln(n=); read(n);
for i:=1 to n do
readln(c[i]);
writeln;
for i:=1 to n do write (c[i], );
min:=c[1];
for i:=2 to n do
if min>c[i] then min:=c[i];
writeln (min=,min);
writeln(k=); read(k);
for i:=n+1 downto k do c[i]:=c[i-1];
c[k]:=min;
writeln; for i:=1 to n+1 do write (c[i], );
end.