QBasic

[andryu100]

Блок схема + решение. Заранее благодарен.
См. прикрепленный скриншот.

[ZX Spectrum-128]

А что именно вызывает затруднения?

[andryu100]

Не знаю как решить.

[ZX Spectrum-128]

Это понятно, что не знаете как решить. ЧТО именно вы не знаете как решить?

[andryu100]

Как построить блок-схему и по ней решить задачу.

[ZX Spectrum-128]

Блок-схему самостоятельно.

option base 1

n=5
Dim a(n,n)As Integer

For i=1 to n
  For j=1 to n
     a(i,j)=Int(Rnd*10)
  Next j
Next i

For i=1 to n
  For j=1 to n
    Print a(i,j);
  Next j
  Print
Next i

Print
For j=1 to n
  k=0		
  For i=1 to n
  	 If a(i,j) Mod 2  =0 And a(i,j)<>0 Then 
  	 	k=k+1
  	 EndIf
    
  Next 
  Print k;" ";
Next 
Print

Sleep