Program a1;
var a,b: array [1..10] of integer;
n,i,k,sum,c: integer;
begin
Randomize;
For i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
Readln (n);
For i:=1 to 10 do
begin
k:=a[i];
while k>0 do
begin
sum:=sum+(k mod 10);
k:=k div 10;
end;
f (n=sum) then
begin
inc(c);
b[c]:=a[i];
end;
end;
for i:=1 to c do
write(b[i]:2);
<span>end.</span>
Значения переменных по строкам в результате выполнения программы
6
-3
30
15
Ответ: 15
Cpp:
For (int i = 0; i < кол-во элементов; i++){
If (mas [i] >= 0){
mas [i] = 0;
}
else{
mas [i] = mas [i] * mas [i];
}