Одномерный массив x(10) задать с клавиатуры. найти сумму отрицательных, количество положительных и произведение ненулевых элементов.

174

338

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

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

mamba211004

Информатика

4,6(61 оценок)

Var a : array [1..10] of integer; begin poiz for i: =1 to 10 do readln(a[i]); for i: = 1 to 10 do begin proz: = 1; if a[i] < 0 then sum : = sum -a[i]; if a[i] > 0 then kol : = kol + 1; if a[i] < > 0 then proz : = proz * a[i]; end; write(sum,' ', kol,' ', proz,' ') end.

ника1700

Информатика

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

Вначале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок. 1. при выполнения цикла каждая из троек 8 будет заменена на одну 9. значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка 2. далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок 3. из 112 восьмерок получится 37 девяток и одна восьмерка 4. и 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка 5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8 6. и наконец получаем строку 8998ответ: 8998