с информатикой! заранее Дано 10 чисел. Найти произведение чисел, которые больше 0. паскаль
kot289
3
29.09.2021 02:06
2
Другие вопросы по теме Информатика
2007пуля
20.07.2019 00:20
Жориккот123
14.04.2020 12:22
Marinet1806
30.10.2020 13:26
кошачка278
04.08.2019 21:40
Ангелинка2007
26.08.2019 05:30
DOCTORMOZG
02.06.2019 15:20
alyonaapresyan
02.06.2019 15:20
rustam20041g
02.06.2019 15:20
Ясминка2006
02.06.2019 15:20
Популярные вопросы
- Порівняйте числа А = 1/3 і Б 0,(3)...
3 - 4. Який абіотичний фактор у наземно-повітряному середовищі є важливим...
3 - 2. Сравните дроби:а) 3/5 и 4/5 б)5/8 и 1 с) 1/8 и 1/10 д) 1 и 8/7 это...
1 - Чи залежить опір провідника від довжини провідника (якщо залежить, то...
2 - Мені дуже потрібно!! Анкета головного героя. Із повісті Міо мій Міо....
3 - Проверить является ли строка Палиндромом. Палиндромом называют слово/фразу,...
3 - Чому людина кам яного віку була царем природи але не була царем природи...
3 - Натрій кількістю речовини 4 моль розчинили у воді. Визначити масу...
1 - 1. Які ви знаєте види кухонного посуду (перерахуйте). 2. Перерахуйте...
1 - . Класифікуйте природні явища відповідно до оболонок Землі, в яких вони...
3
var a:array [1..100] of integer;
var n,i,k :integer;
begin
k:=1;
for i:=1 to 10 do begin
read (a[i]);
if a[i]<10 then k:=a[i]*k;
end;
write(k);
end.