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

Извини это немного сложнее задание, немного позьже

я очень хочу с тобой пообщаться , напиши в вк , ты мне очень помог

id198174925

Я не даю свой вк, извини

хотя бы просто напиши , пару вопросов хочу задать

vara:array[1..100] of integer;n,s,i:integer;beginreadln(n);s:=0;for i:=1 to n dobegin 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);readlnend.