Опубликовано 5 лет назад по предмету Информатика от sambulov2014

1.Массив из 10 элементов заполнить случайным образом и вывести на экран. Вставить элемент равный 100 после минимума. 2.Массив из 10 элементов заполнить случайным образом и вывести на экран. Удалить максимальный.

Ответ

Ответ дан Аккаунт удален

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
Println('*1*');
var a:=ArrRandom(10,-99,99); a.Println;
var imin:=a.IndexMin;
if imin=a.Length-1 then a:=a+Arr(100)
else a:=a[:imin+1]+Arr(100)+a[imin+1:];
a.Println;
Println('*2*');
a:=ArrRandom(10,-99,99); a.Println;
var imax:=a.IndexMax;
if imax=a.Length-1 then a:=a[:imax]
else a:=a[:imax]+a[imax+1:];
a.Println
end.

Тестовое решение:
*1*
-52 -66 -56 55 -94 -53 28 -94 61 61
-52 -66 -56 55 -94 100 -53 28 -94 61 61
*2*
62 -80 91 -85 -59 -58 20 23 -91 53
62 -80 -85 -59 -58 20 23 -91 53
1. Ответ
  
  Ответ дан sambulov2014
  
  Мы не так решаем.
2. Ответ
  
  Ответ дан Аккаунт удален
  
  Поскольку Вы не написали в условии задании, как именно вы решаете, то никаких претензий предъявлять не можете
3. Ответ
  
  Ответ дан Аккаунт удален
  
  Вы даже не потрудились указать ЯЗЫК ПРОГРАММИРОВАНИЯ !!!

Самые новые вопросы

Математика - 4 года назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 4 года назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 4 года назад

Почему япония - лидер по выплавке стали?

Математика - 4 года назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 4 года назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.