Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
klimantovich72
15.10.2022 21:57 •
Информатика
Вмассиве из 10 элементов, заполненного случайными числами из интервала от –15 до 15, найти одновременно наибольший и наименьший элементы массива.
Показать ответ
Ответ:
xennika
03.10.2020 14:38
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(10,-15,15); a.Println;
var min:=a[0]; var max:=min;
foreach var e in a do
if e<min then min:=e
else
if e>max then max:=e;
Writeln('min=',min,', max=',max);
end.
Тестовое решение:
-4 -3 3 -9 15 11 4 15 -11 10
min=-11, max=15
0,0
(0 оценок)
Популярные вопросы: Информатика
usett
16.06.2021 07:57
Составим все возможные последовательности из пяти букв, используя только символы L, R, V, и выпишем их в алфавитном порядке. Вот начало этого списка: R V LLLRL Определите последовательности,...
nastyonakononenkova
20.01.2020 06:24
В электронную таблицу занесли данные о тестировании учеников по выбранным ими предметам. A B C D 1 округ фамилия предмет 2 C Ученик 1 Физика 240 3 В Ученик 2 Физкультура 782...
aram0071
29.04.2021 23:59
ПОЖАЙЛУСТА Задача №1 Створити алгоритм блок-схему алгоритму збирання яблук. Задача №2 Створити блок-схему алгоритму знаходження середнього арифметичного трьох чисел, де: a,...
21122007
19.01.2022 15:07
2-Световое табло состоит из цветных лампочек. Каждая лампочка может окрашиваться в четыре цвета: зелёный, черный, желтый и фиолетовый. Какое наименьшее количество лампочек...
babikovserega2
12.10.2021 09:26
Впрограмме используется одномерный целочисленный массив а с индексами от 0 до 9. значения элементов равны 1,2,4,3,5,6,8,7,3,4,т.е а(0)=1 и тд. определите значение переменной...
rgn123
30.03.2023 22:35
Составьте программу рисования прямоугольника со сторонами, параллельными осям координат, и вершинами в точках (2; -2) и (-1; 5)....
masharman250
08.04.2021 00:23
Составьте программу рисования фигуры, изображенной на рисунке, таким образом, чтобы во время рисования перо не отрывалось от бумаги, и ни одна линия не проводилась дважды....
dali666
28.10.2021 04:52
1) Как можно создавать модели в программе SketchUp 2) Каковы функции инструментов управления пространством в SketchUp3) Для выполнения каких действий используется кнопка *Вращение*4)Как...
vladimirshmele1
09.10.2021 02:26
Напишіть,будь ласка, три задачі на вибір. Інформатика. тема:циклічні алгоритми...
Токаарічіна
17.07.2021 00:27
Маленький конспект тема: кодирования и декодирования...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(10,-15,15); a.Println;
var min:=a[0]; var max:=min;
foreach var e in a do
if e<min then min:=e
else
if e>max then max:=e;
Writeln('min=',min,', max=',max);
end.
Тестовое решение:
-4 -3 3 -9 15 11 4 15 -11 10
min=-11, max=15