Автор | Сообщение |
|
Отправлено: 18.05.12 17:11. Заголовок: C2 из тренировочной! Помогите решить!
Опишите алгоритм, позволяющий найти и вывести сумму таких элементов массива, которые являются двузначными числами и произведение цифр больше 10. const N=30; Var a:array [1..N] of integer; i, j, s: integer; begin for i:=1 to N do readln(a); … end.
|
|
|
Ответов - 2
[только новые]
|
|
|
| постоянный участник
|
Сообщение: 73
|
|
Отправлено: 18.05.12 18:11. Заголовок: в S записываем 0 для..
в S записываем 0 для i от 1 до 30 перебираем все a[ i ], если для a[ i ] выполняется условия 10 <= a[ i ] <= 99 и (a[ i ] mod 10)*(a[ i ] div 10)>10 тогда добавляем a[ i ] к S печатаем S
|
|
|
|
Отправлено: 20.05.12 12:13. Заголовок: двузначные, произвед..
двузначные, произведение больше 10 const N=30; var a:array [1..N] of integer; i, j, s: integer; begin for i:=1 to N do readln(a); s:=0; for i:=1 to N do if (a>9) and (a<100) and (a mod 10)*(a div 10)>10 then s:=s+a; writeln(s); end. че-то баг какой-то, курсив убирает индекс массива
|
|
|
|