Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Dote8228
14.10.2020 13:40 •
Информатика
Дан одномерный массив а из 10 целых чисел, найти максимальный элемент первой половины массива ! ! среда паскальавс
Показать ответ
Ответ:
arakelyankrist
07.09.2020 20:55
//PascalABC.NET 3.1 сборка 1200
const n = 10;
begin
var a:=ArrRandomInteger(n, 0, 100);
a.Println;
Println(a.Take(n div 2).Max);
end.
0,0
(0 оценок)
Ответ:
MarkZz
07.09.2020 20:55
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(10,-99,99); a.Println;
Writeln('Результат: ',a[:5].Max)
end.
Тестовое решение:
6 -7 20 50 32 -26 -95 15 31 10
Результат: 50
0,0
(0 оценок)
Популярные вопросы: Информатика
казактілі3
19.09.2022 08:17
Кроссворд. 1) Набор инструкций на языке, понятном компьютеру.2) Компьютер, предоставляющий свои ресурсы в общее использование.3) Устройство для объединения компьютеров...
fjjjfg
10.01.2021 22:38
1) в ячейке b1 записана формула =2*$a1. какой вид приобретет формула, после того как ячейку b1 скопируют в ячейку b3 b c2 2)сравните разеры памяти необходимые для хранения...
Nasva
10.01.2021 22:38
Подготовьте сообщение о видах персональных компьютеров и их использовании...
varvara92
17.02.2020 01:23
Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=1; while i =... do begin writeln( Привет! ); i:=i+1 end; Чему будет равно зна че...
Reginalolo
06.04.2023 06:36
Выразите в Гиб 4096 МиБ = 4096: 1024 Гиб =4 Гиб5 242 880 КИБ = 5 242 880 :5ГИБ =52 147 483648 Б2 147 488 648 -2Подсказка:Используйте таблицу производных единиц информации...
muliku
11.02.2020 02:57
Написать на Паскале программу является ли число отрицательным и не четным...
babiron
09.08.2020 09:26
Дано описание одного из законов логики. выбери верный ответ. если отрицать дважды некоторое высказывание, то в результате получается исходное высказывание. закон двойного...
hcjdbghfgyfjfh
09.08.2020 09:26
1)дан одномерный массив. положительные элементы уменьшить в два раза, отрицательные заменить их индексами. 2)дан одномерный массив. найти произведение элементов массива....
Jessicacoen
13.10.2021 00:12
Промінь OD проходить між сторонами кута AOB. Знайдіть кут BOD, якщо кут AOB=108°, кут AOD=87°...
НацуЛюси
01.03.2020 07:53
Раздражает ли что-то в современной речи вас ? Что именно?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n = 10;
begin
var a:=ArrRandomInteger(n, 0, 100);
a.Println;
Println(a.Take(n div 2).Max);
end.
begin
var a:=ArrRandom(10,-99,99); a.Println;
Writeln('Результат: ',a[:5].Max)
end.
Тестовое решение:
6 -7 20 50 32 -26 -95 15 31 10
Результат: 50