Данн массив 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.