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

Question

Информатика

Спиридоний

18 мая, 01:13

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

+2

Ответы (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.