Задается массив из n натуральных чисел. найти сумму чисел в которых цифры по возрастанию. язык- паскаль. сделать надо через функцию

220

284

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

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

eeeeeeeeeerrrrrrrrrr

Информатика

4,8(11 оценок)

Const n = 10; var a: array[1..n] of integer; i: integer; function sum: integer; var tmp, prev, cur, s, i: integer; flg: boolean; begin s : = 0; for i : = 1 to n do begin flg : = true; tmp : = a[i]; prev : = 9; cur : = 0; while tmp > 0 do begin cur : = tmp mod 10; if cur > prev then begin flg : = false; break; end; prev : = cur; tmp : = tmp div 10; end; if flg then inc(s); end; sum : = s; end; begin writeln('исходный массив: '); for i : = 1 to n do begin a[i] : = random(1000); write(a[i], ' '); end; writeln; writeln('ответ: ', sum); end.