Задать случайным образом 13 элементов числового массива - числа от 10 до 50. Удалить из него: а) 10-ый элемент; б) минимальный элемент Решить это всё в одной задаче. спасибо! жду быстрого решения)
Answers & Comments
andrfk
Var a:array[1..2000001] of integer; i,y,x,j,c:integer; begin x:=200001; a[x]:=700; for i:=1 to 13 do begin y:=random(2000001); a[y]:=random(41)+10; if a[x]>a[y] then x:=y; if i=10 thenfor j:=i to 2000000-i-1 do a[j]:=a[j+1]; end; for c:=1 to 1999999 do write(a[c],' '); end.
Answers & Comments
a:array[1..2000001] of integer;
i,y,x,j,c:integer;
begin
x:=200001;
a[x]:=700;
for i:=1 to 13 do begin
y:=random(2000001);
a[y]:=random(41)+10;
if a[x]>a[y] then x:=y;
if i=10 thenfor j:=i to 2000000-i-1 do
a[j]:=a[j+1];
end;
for c:=1 to 1999999 do
write(a[c],' ');
end.