Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
plz11POMOGITE11plz
05.08.2020 07:12 •
Информатика
Задан числовой массив, состоящий из 9 элементов. найти и вывести на экран произведение всех элементов, меньших максимального.надо составить программу.,
Показать ответ
Ответ:
Katesinful
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 оценок)
Популярные вопросы: Информатика
Lenokin88
03.09.2022 07:01
сделайте побыстрей Оба варианта....
arinasuykova
13.03.2021 11:37
Так как таблицу и схему рисовали независимо друг от друга, то нумерация населённых пунктов в таблице никак не связана с буквенными обозначениями на графе. Определите номера пунктов,...
lenawer
04.02.2022 07:46
История и перспективы робототехники Изучи программный код и определи его назначение. П1 А. А + 0 T 8 ) 0 40 0 30 [5] робот перемещается между черной и красной линиями вперед и назад...
love2121
15.02.2022 22:54
Информатика! Один вопрос! Смотрите внутри! Как суточные пути звезд расположены относительно горизонта для наблюдателя, находящегося на экваторе Земли? Чем они отличаются от суточных...
Miraflores18
22.04.2022 16:06
создайте документ компьютерный класс ,состоящий только из рисунков, используя возможности word , нарисуйте эту комнату со стороны стены с окном...
ketjaan13
13.08.2022 14:50
Написать программу для решения на языкеbasic. определить номер строки, содержащей максимальный элемент массива в (5,4)....
Турик2087
21.12.2022 09:46
Программирование составьте программу на с++ определяющая число. например, если набьешь 283 там буквами выйдет двести восемьдесят три. седлайте 100...
natasha8750p092ef
14.09.2022 12:31
Составьте слово на тему ласковые слова из букв аиедижно. к бабушке приехала на лето а у неё никогда ей не подарю...
lalka133722
02.06.2022 12:32
Написать эссе: законы нужны не только для того,чтобы устрашать граждан,но и для того,чтобы им. (вольтер)...
Света202002
02.02.2020 18:25
Определите природную среду по ее кратному описанию, на территории россии в основномраспространена в пределах восточно-европейской равнины. лето теплое, зима достаточно холодная,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.