Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
leralagbibl
10.09.2019 16:00 •
Информатика
Впаскале.дан одномерный массив, удалить max элемент одномерного массива.
Показать ответ
Ответ:
ДевочкаНадя
16.08.2020 13:33
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var max:=a.Max;
a:=a.Where(t->t<>max).ToArray; a.Println
end.
Пример
n= 15
-24 35 -41 14 18 -27 10 48 20 30 -42 -10 -32 -22 14
-24 35 -41 14 18 -27 10 20 30 -42 -10 -32 -22 14
0,0
(0 оценок)
Популярные вопросы: Информатика
mihanesterov
26.02.2020 00:55
1)Как разместить кнопку на форме? 2)Чем отличаются свойства Height и Width для метки и для формы?...
Максим2311111
26.02.2020 00:20
Какие команды нужно добавить вместо многоточия в программу для Черепахи: повтори 10 [вперед 40 вправо 50 ...] чтобы Черепаха нарисовала: а) квадрат со стороной 80 б) правильный...
rakrak2016
26.02.2020 00:15
Можно ли написать программу для Удвоителя, которая из любого числа x строит число 7x+9?Почему? Заполните пропуск: «Можно написать программу для Удвоителя, которая из любого числа...
BlueEyesCatОоак
10.02.2021 12:20
Контрольная работа по теме основы алгоритмизации...
дэнчик60
21.09.2020 23:54
приведите примеры: 1) достоверной, но непонятной информации; 2) объяктивной, но неполной информации; 3) неактуальной необъяктивной информации; 4) актуальной, но недостоверной информации...
nzinulla
21.09.2020 23:50
Даны вещественные числа a b c (a не равно 0) выяснить имеет ли уравнение ax^2 + bx + c = 0 вещественные корни. На писать программу на C#...
LugovoyDanila
13.07.2019 11:20
Алгоритм сжатия rle относится к вариант 1 необратимым алгоритмам сжатия. вариант 2 к алгоритмам с потерей данных. вариант 3 к обратимым алгоритмам. вариант 4 к обратимым и к необратимым...
жансаяболатова
13.07.2019 11:30
Pascal. как записать на языке паскаля d = корень из (b-a) всё к квадрате + (p-c) всё в квадрате...
Versija02
13.04.2020 18:53
Задача 1. Оцените информационный объём цифрового звукового моно файла длительностью 20 секунд при глубине кодирования 16 бит и частоте дискретизации 10000 Гц? Результат представить...
poliaprokopets
28.04.2021 20:50
Разложите квадратных трехчлен на множители...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var max:=a.Max;
a:=a.Where(t->t<>max).ToArray; a.Println
end.
Пример
n= 15
-24 35 -41 14 18 -27 10 48 20 30 -42 -10 -32 -22 14
-24 35 -41 14 18 -27 10 20 30 -42 -10 -32 -22 14