Регистрация
кпрооо
16.06.2021 00:07
Информатика
Есть ответ 👍

Программирование в vba. : массив сотоит из двадцати элементов. сколько элементов массива нужно сложить (начиная с первого), чтобы сумма превысила число 100. вот моя программа: private sub commandbutton1_click() dim c(1 to 20) as integer dim i, n, s as integer for i = 1 to 20 c(i) = cells(i, 1) next i s = 0 n = 0 for i = 1 to 20 if s < = 100 then s = s + c(i) and n = n + 1 next i cells(2, 3) = "количество элементов массива, сумма которых превышает 100=" & n end sub как результат выводит "0" (т.е. n заданное изначально). может, кто-то сможет подсказать ошибку? это !

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

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

sofiko07161
sofiko07161
4,5(75 оценок)
S= s + c(i) and n = n + 1   эта строчка - ошибка  s = s + c(i) : n = n + 1 - исправленная
Маша923892
Маша923892
4,5(44 оценок)
Program l; uses crt; var x: integer; begin write('   x=');   readln(x); if (x mod 3)=0 then   writeln('x=',x,' делется нацело на 3')                               else   writeln('x=',x,' не делется нацело на 3') end.

Популярно: Информатика