Дан массив B (N). Удалить из него минимальный элемент и сдвинуть все оставшиеся элементы на одну позицию влево

Question

Информатика

Лукинична

7 апреля, 10:18

Дан массив B (N). Удалить из него минимальный элемент и сдвинуть все оставшиеся элементы на одну позицию влево

+1

Ответы (1)

Знаете ответ на вопрос?

Христюха · Answer 1

Var ar:array[1 ... 10] of integer;

min, mini, i:integer;

begin

randomize;

min:=2147483647;

writeln ('Array:') ;

for i:=1 to 10 do

begin;

ar[i]:=random (100) ;

write (ar[i]:4) ;

if ar[i]
begin;

min:=ar[i];

mini:=i;

end;

end;

for i:=mini to 9 do

ar[i]:=ar[i+1];

writeln;

writeln ('Final array:') ;

for i:=1 to 9 do

write (ar[i]:4) ;

end.