tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан массив а(10). определить
Дан массив а(10). определить наибольший по модулю элемент массива и его номер.
12345687654321ytrye
3 25.07.2019 04:50
0
Ответы
Mаs9n9
24.09.2020 10:45
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a:=ArrRandom(10,-100,100); a.Println;
var i:=a.Select(x->abs(x)).ToArray.IndexMax;
Writeln('Максимальный по модулю А[',i+1,']=',a[i])
end.
Тестовое решение:
-55 -41 -67 -5 -52 6 -95 -93 -6 -45
Максимальный по модулю А[7]=-95
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Василий300
20.05.2019 10:10
Найдите количество элементов массива, которые больше заданного числа а, вводимого с клавиатуры...
Chehows
20.05.2019 10:10
Найти значение функции у=х^2+1, для х=0,2; 0,4; 0,6; ; 20....
yanalatina97
20.05.2019 10:10
Напишите программу, которая задает трехмерный массив и находит в нем наибольшее число. ( pascal ). буду рад, если прокомментируете, хочу разобраться....
Евдокия47
30.10.2021 01:37
Крепость вокруг замка имеет форму правильного n-угольника. В каждой вершине n-угольника построена башня, которую охраняют по a стражников. На каждой стороне крепости размещено...
ashkon
30.10.2021 01:38
Причини коли використовувати зміст а коли режим структури в ворде....
den4ik143
30.10.2021 01:40
Вопросы и задания. 1. Какие устройства можно назвать дополнительными устройствами компьютера? 2. Чем функция принтера отличается от функции сканера? 3. Для чего нужны плоттеры,...
belorus70oxm1t1
23.05.2020 19:03
Сколько дорог идут из А в М, проходящих через город В?...
krechetnickova
24.05.2020 19:01
сделайте алгоритм для робота, длины стен неизвестны сделайте алгоритм для робота, длины стен неизвестны. >...
киса822
23.05.2020 19:04
Дан целочисленный массив из 40 элементов, все элементы которого – целые числа в интервале от -500 до 500. Напишите программу, которая находит сумму всех отрицательных элементов...
Gonsh1240
24.05.2020 19:03
Какое значение будет выведено на экран после выполнения следующей программы:a:= 3; for i:=5 to 10 do a:=a+2; writeln (a). ...
Популярные вопросы
Если длина стороны квадрата меньше 8 см то периметр квадрата...
1
Емкость заряженного конденсатора увеличили в два раза.как изменится энергия...
1
Впрямоугольном треугольнике угол с - прямой, угол а - 60 градусов, сумма сторон...
2
Почему в прилагательных пишется двойная -нн-...
2
Таңертеңгі асқа не дайындап жейсің?...
1
Как по языку оппределить лицо и спряжение и окончание взлетел...
2
Решить уравнение 1400: (35-y)-24=41...
1
Скакого дна тяжелее поднять получившую пробоину лодки : с илистого или каменистого?...
2
Антонимы к словам: близко,много,рано,поздно,легко,громко,вверху,грустно синонимы...
1
Вслучайном экперименте симметричную монету бросают четыре раза. найдите вероятность...
1
begin
var a:=ArrRandom(10,-100,100); a.Println;
var i:=a.Select(x->abs(x)).ToArray.IndexMax;
Writeln('Максимальный по модулю А[',i+1,']=',a[i])
end.
Тестовое решение:
-55 -41 -67 -5 -52 6 -95 -93 -6 -45
Максимальный по модулю А[7]=-95