СРОЧНО! Решить задачу в Паскале (тема "массивы") Задать случайным образом 13 элементов числового массива - числа от 10 до 50. Удалить из него:а) 10-ый элемент;б) минимальный элементРешить это всё в одной задаче.спасибо! жду быстрого решения)
Ответы:
29-08-2016 20:08
vara:array[1..2000001] of integer;i,y,x,j,c:integer;beginx:=200001;a[x]:=700;for i:=1 to 13 do beginy:=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 doa[j]:=a[j+1];end;for c:=1 to 1999999 dowrite(a[c],);end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «СРОЧНО! Решить задачу в Паскале (тема "массивы") Задать случайным образом 13 элементов числового массива - числа от 10 до 50. Удалить из него:а) 10-ый элемент;б) минимальный элементРешить это всё в одной задаче.спасибо! жду быстрого решения)» от пользователя Валентин Луговской в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!