1. Информатика
  2. Pascal abc. пусть даны

Pascal abc.
пусть даны целые числа a1,.получите новую последовательность,выбросив из исходной максимальный и минимальный члены.

GenaGenaGena1 GenaGenaGena1    1   24.11.2019 09:09    5

Ответы
ksa010402 ksa010402  10.10.2020 15:19

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var (min, max) := (a.Min, a.Max);

 a := a.Where(p -> (p <> min) and (p <> max)).ToArray;

 a.Println

end.


Pascal abc. пусть даны целые числа a1,.получите новую последовательность,выбросив из исходной максим
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Даниил555777 Даниил555777  11.06.2019 01:40
При кодировании из8-битовой кодировки в 16-битовую объем сообщения увеличиться на 256 бит. определите объем сообщения после перекодирования....
SamSnOw4356 SamSnOw4356  02.10.2019 23:10
Информатика паскаль 8 класс. на столе лежат коробка размера a1 × b1 × c1 и коробка размера a2 × b2 × c2. выясните можно ли одну из этих коробок положить в другую,...
лилия371 лилия371  02.10.2019 23:10
Введите a,b,c,d. найти количество четных из них. решите в паскале. , буду ....
darkilia2006p01bb5 darkilia2006p01bb5  02.10.2019 23:10
Алгоритм вычисления значения функций f(n) и g(n), где n – натуральное число, задан следующими соотношениями: f(1) =5; f(n) =2⋅f(n–1) +5 ⋅ n, при n 1; g(1) =4; g(n)...
sembaevam sembaevam  26.03.2020 13:24
Определите значение переменной s после выполнения фрагмента алгоритма: S:=0 нц для I от 1 до 7 s:=s+I*i кц...
Фарук11 Фарук11  26.03.2020 13:24
ИнформатикаПовторить материал из файла. Написатьпрограмму: С Клавиатуры вводиться целоезначное n-значное число, вывести на экрансумму нечетных цифр и произведениечетных...
MariaVol19 MariaVol19  15.01.2021 09:28
Нужна с алгоритмами задание на фото, бред не писать, не писать не могу не знаю , не писать флуд, за это жалоба ну и бан....
ник4774 ник4774  16.06.2019 03:10
Васе для реферата необходимо распечатать титульный лист. для этого он выполнил следующие действия: а) открыл текстовый редактор, б) набрал текст титульного листа,...
приветпрррррр20246р приветпрррррр20246р  16.06.2019 03:10
Самолёт летит со скоростью 500 км/ч. за сколько времени он пролетит 4500 км...
акл2 акл2  16.06.2019 03:10
Понимает .люди реакция ионного обмена,его нужно расписать я не умею ( 2koh+h2so4=cuso4+2h2o здесь не знаю какая реакция вроде бы овр тоже нужно расписать его cuco3+h2so4=cuso4...

Популярные вопросы