Дан целочисленный массив, элементы которого могут принимать значения от 0 до 1000. разработать алгоритм, который позволяет найти сумму двухзначных элементов массива, сумма цифр которых меньше 10. количество элементов массива и их в программе.

234

329

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

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

liwan

Информатика

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

Const n=30; var x,i,s: integer; a: array[1..n]of integer; begin writeln('массив: '); for i: =1 to n do begin x: =random(1000); a[i]: =x; write(x,' '); if (x> 10) and (x< 100) and ((x div 10)+(x mod 10)< 10) then s: =s+a[i]; end; writeln; writeln('ответ: ',s); end.

hh222

Информатика

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

Uses crt; var i,n,summa,a: integer; m: array [1..1000] of integer; begin clrscr; writeln('введите размер массива'); readln(n); for i: =1 to n do m[i]: =i; if n< 99 then a: =n else a: =99; for i: =10 to a do begin if (i div 10)+(i mod 10) < 10 then begin summa: =summa+i; end; end; writeln(summa); readkey; end.