Question

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

Answer 1

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.

Answer 2

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

Answer 3

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

Answer 4

id198174925

Answer 5

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

Answer 6

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