Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
bahyt061089
25.08.2022 13:32 •
Информатика
Задан числовой массив, состоящий из 9 элементов. найти и вывести на экран произведение всех элементов, меньших максимального.надо составить программу.,
Показать ответ
Ответ:
alskyuq
21.07.2020 11:54
Program programma;
uses crt;
var
a:array[1..100]of integer;
i,max,p:integer;
begin
clrscr;
p:=1;
for i:=1 to 9 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 9 do
begin
if a[i]> max then max:=a[i];
end;
for i:=1 to 9 do
begin
if a[i]<> max then
p:=p* a[i]
end;
writeln;
writeln('max = ', max);
write('P = ',p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Elnur19982
25.06.2022 23:26
7просмотрщик текстовых файлов. написать программу, которая позволяет просматривать текстовые файлы (выводит на экран содержимое файла). имя просматриваемого файла должно вводиться...
54женек4
19.12.2021 06:48
Добрый вечер ! если из первой корзины убрать 38 орехов , то в ней останется столько орехов сколько их во второй корзине. а если добавить 54 ореха то станет столько сколько в первой...
ppppppp0000
19.12.2021 06:48
Существует ли треугольник у которого длины сторон 12^8 , 122^3 , 11011^2...
DanilTasher
28.04.2021 14:58
Как нарисовать звезду, спираль и смайлик c TURTLE.(PYTHON) ...
sonka247
29.06.2021 08:03
5. Проанализируйте предложенный код и определите, что будет выведено в результате его исполнения?а) а = int (input ( введите число:if a 0:print( Neg )elif a = 0:print( Zero )else:print(...
annamikhaylova5
04.07.2021 07:05
1(а) Определите причину движения растений (тропизмы, настии), используя рисунок. А Б В Г...
cuvluroyeoc
07.03.2022 21:19
ХИМИЯ ❗❗❗❗❗❗❗❗❗❗❗ Б.1)Определите к какому естественному семейству относятся данные элементы.2)назовите причину по которой данное семейство получило такое название...
animebit81
05.05.2023 13:44
В поезде ехали пассажиры: 1964, 1970, 2004, 2010, 2020 годов рождения. Сколько поколений людей ехали в поезде?...
yekatmedwedicz
08.07.2022 12:34
Представьте в виде построчной записи алгоритм решения следующей задачи: Мальчик, продающий на улице газеты, зарабатывает А рублей на продаже каждой из первых 75 газет. На каждой...
gleb101pro
20.05.2020 18:53
Фотопериодизм как адаптация организма к длине светового дня. Выбери правильное утверждение о фотопериодизме. Что такое фотопериодизм? реакция растений на температурные колебания...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
a:array[1..100]of integer;
i,max,p:integer;
begin
clrscr;
p:=1;
for i:=1 to 9 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 9 do
begin
if a[i]> max then max:=a[i];
end;
for i:=1 to 9 do
begin
if a[i]<> max then
p:=p* a[i]
end;
writeln;
writeln('max = ', max);
write('P = ',p);
end.