Данн массив R (6, 6). Найти все строки, количество положительных элементов которых > 5, и напечатать их номер, подсчитать общее количество таких строк.

Var

a:array[1 ... 100] of integer;

n, s, i:integer;

begin

readln (n) ;

s:=0;

for i:=1 to n do

begin

a[i]:=Random (13) - 6;

write (a[i],' ') ;

end;

writeln;

for i:=1 to n do

if a[i]>5

then begin write (i,' ') ; inc (s) ; end;

writeln;

writeln (s) ;

readln

end.