Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
overlord735
15.03.2020 05:32 •
Информатика
(сумма) найти произведение элементов массива вещественных чисел, меньших заданного числа.
Показать ответ
Ответ:
mikhdina24
08.07.2020 08:57
Var
a:array[1..10]of integer;
i,k,p:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
p:=1;
for i:=1 to 10 do
if a[i]<k then p:=p*a[i];
writeln('P=',p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
рол145
18.05.2020 10:11
Выполняем на компьютере1. Запустите текстовый редактор Word.2. Скачайте из Интернета и сохраните информацию об из-вестных поэтах и писателях.3. Наберите найденную информацию на трех...
arsenenko
08.02.2022 01:42
Укажите тип синтаксической ошибки, имеющейся в данной программе на Паскале:Program a2;Var b2,2c: real; Begin read(b2); 2c:=b2*b2 End....
lilianchic14
08.02.2022 01:42
6. Определите значение переменной a после исполнения фрагмента программы. а := 1 b := 2 + a b := a + b а := b/2*2*a - 3...
mariy2104
17.03.2020 07:07
Здесь х принимает значение с шагом 0,1 из интервала [0,7; 2] и а = 1,65надо решить в Python...
Turtlrs
18.12.2021 03:04
Программирование на паскале. честно, не понимаю как это делать, вообще паскаль не знаю, но надо сдать саше понравились олимпиады по , поэтому он решил ходить на занятия кружка. придя...
vladkoles36
29.06.2022 19:26
Из заданной строки получить новую заменив в ней все симво¬лы после первой звездочки (*) знаком - (если в строке нет звездочек оставить без изменения). распечатать полученную строку....
LOL8KEKYC
29.06.2022 19:26
Целой переменной s присвоить сумму цифр трехзначного числа к,вводимого с клавиатуры...
Дияс465
27.10.2022 07:06
5. В сообщающиеся сосуды с краном K (рис. 3), площади поперечных сечений которых одинаковые, налита вода. В левом колене воданаходится на высоте h = 10 см, в правом — на высоте h...
ksuholina
11.05.2023 09:48
5.Қазақстан аумағындағы топырақтың таралуын түсіндіріңіздер. кім білед керек еді : ...
00LenaVaganova11
11.05.2023 09:48
1. Мотоцикл – двоколісний……. 2. Дорожній мотоцикли забезпечує перевезення……….. 3. Водні і патрульні мотоцикли належать до мотоциклів……… 4. Рукавиці захищають……. 5. Моточоботи повинні...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..10]of integer;
i,k,p:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
p:=1;
for i:=1 to 10 do
if a[i]<k then p:=p*a[i];
writeln('P=',p);
end.