Вопрос по информатике:
СРОЧНО! Решить задачу в Паскале (тема "массивы")
Задать случайным образом 13 элементов числового массива - числа от 10 до 50. Удалить из него:
а) 10-ый элемент;
б) минимальный элемент
Решить это всё в одной задаче.
спасибо! жду быстрого решения)
- 10.08.2018 17:31
- Информатика
- remove_red_eye 5542
- thumb_up 45
Ответы и объяснения 1
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.
- 11.08.2018 21:41
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.