Вот такая задачка, нужно решить в Паскале
Я начала делать через массивы, но абсолютно не представляю, как найти количество счастливых чисел, с суммой цифр 13. Помогите пожалуйста
Код:
Const n=6;
vect_min = 0;
vect_max = 9;
Var i, s, s1, s2 : Integer;
A:Array[1..n] Of Integer;
Begin
Randomize;
For i:=1 To n Do
Begin
A[i]:=Random(vect_max-vect_min + 1) + vect_min;
Write(A[i]);
End;
WriteLn;
s1:=A[1]+A[2]+A[3];
s2:=A[4]+A[5]+A[6];
If s1=s2 then
WriteLn('билет "счастливый" :)')else
WriteLn('увы, билет не счастливый :( ');
End.