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

Дан целочисленный массив, элементы которого могут принимать значения от 0 до 1000. Разработать алгоритм, который позволяет найти сумму двухзначных элементов массива, сумма цифр которых меньше 10. Количество элементов массива и их задаются в программе.
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы