Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 10.03.2014
Сообщений: 23

Дан массив из 16 целых чисел, случайно заданных в диапазоне

14.04.2014, 15:04. Показов 2221. Ответов 1
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
2) Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70. Получить MIN(a1*a16, a2*a15, …, a8*a9).
0
Лучшие ответы (1)
Сообщение: #6043794
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 14.04.2014, 15:04
Ответы с готовыми решениями:

Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70. Получить MIN
2) Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70. Получить MIN(a1-a16, a2-a15, …, a8-a9). Помогите пожалуйста!

Дан массив, состоящий из 15 целых чисел, в диапазоне от 0 до 255. Содержимое массива сортируется по возрастанию
Нужно написать программу с использование данной темы "Поиск элемента в упорядоченном массиве." и использовать p:=1; q:=n; ...

в скольких случаях из n случайно выбранных в диапазоне от 0 до 10 целых чисел, выпало число 5
Добрый вечер, года 4 назад увлекался паскалем несерьезно, на данный момент все забыл. Прошу помощи, важно) Составить программу, которая...

1
 Аватар для NurlashKO
168 / 90 / 80
Регистрация: 07.10.2012
Сообщений: 145
14.04.2014, 16:42
Лучший ответ Сообщение было отмечено kaiz как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

var
    i, ans :longint;
    a :array[1 .. 16] of longint;
begin
    for i := 1 to 16 do begin
        a[i] := random(71);
        write(a[i], ' ');
    end;
    writeln;
 
    ans := a[1] * a[16];
    for i := 2 to 8 do
        if (ans > a[i] * a[16 - i + 1]) then ans := a[i] * a[16 - i + 1];
    writeln(ans);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 14.04.2014, 16:42
Помогаю со студенческими работами здесь

Дан массив целых чисел в диапазоне от -10000 до 10000
Задача: Дан массив целых чисел в диапазоне от -10000 до 10000. Вычислить количество элементов массива меньших n и это значение...

Дан массив целых чисел в диапазоне от -30000 до 30000. Отсортировать его по убыванию. Методом простого выбора
Задача: Дан массив целых чисел в диапазоне от -30000 до 30000. Отсортировать его по убыванию. Методом простого выбора. Формат...

дан массив. Если ввести 2 целых числа, то массив в диапазоне между этими числами приобретет максимальное значение массива
дан массив. Если ввести 2 целых числа, то массив в диапазоне между этими числами приобретет максимальное значение массива. Как найти...

Дан массив целых числ заданных случайным образом из диапазона от 23 до 235
Дан массив целых числ заданных случайным образом из диапазона от 23 до 235 . Длина массива равна N.Найти сумму всех элементов массив ,...

Создать динамический массив А целых чисел размерностью M на N. Заполнить массив случайными числами в диапазоне [-50;50]
Создать динамический массив А целых чисел размерностью M на N. За-полнить массив случайными числами в диапазоне Элементы массива,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru