Найти произведение всех ненулевых элементов массива d. массив d(10). ограничение d с нижним индексом i не равно 0 vba

131

398

Посмотреть ответы 2

Ответы на вопрос:

10012011

Информатика

4,7(53 оценок)

var d: array[1..10] of integer;

s,i: integer; begins: =1; for i: =1 to 10 do begin

readln(d[i]);

if d[i]< > 0 then s: =s*d[i];

end; writeln(s); end.

kris7510

Информатика

4,5(52 оценок)

М-1000 d-500 c-100 x-10 v-5 i-1 чтение с конца, если следующее число больше или равно предыдущему, то нужно прибавлять к предыдущему, если меньше - вычитать. 1) 500+1000+1000+1000=3500 2) 5-1=4 3) 10-1+10=19 4) mcmxcivii - запись не правильная, ivii - это по-сути число 6, но правильна его запись vi поэтому число mcmxcvi - 1996