S=0
i=1
<======================================
Если A(i, i) не равно 100 то S=S+A(i, i) ||
i=i+1 ||
если i < 6 то перейти на ===================
иначе печатать S (сумма)
вот и алгоритм
Если писать на QBasice то будет примерно так:
1. DIT a(i)
4. IF i = 0 THEN 11
6. IF i > 0 THEN 13
7. IF I < 0 THEN 15
10. END.
<span>11. PRINT i
</span>12. END.
<span>13. PRINT i
</span>14. END.
<span>15. PRINT i
</span>16. END
<span>Могу ошибаться) Точно не могу написать..</span>
<em>№1 111010</em>
<em>№2 2d</em>
<em>№3 12</em>
<em>№4 44</em>
<em>№5 84</em>
<em>№6 27</em>
<em>№7 205</em>
<em>№8 100101100</em>
<span><em> 454</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.