Const n=7; Var ma:array[1..n,1..n] of integer; countn,countp,i,j:integer; sr:real; begin for i:=1 to n do for j:=1 to n do begin readln(ma[i][j]); if ma[i][j]>0 then inc(countp) else if ma[i][j]<0 then inc(countn); end; for i:=1 to n do begin for j:=1 to n do write(ma[i][j]:4); writeln; end; writeln('Count of positive=',countp,', count of negative=',countn); for j:=1 to n do begin sr:=0; for i:=1 to n do sr+=ma[i][j]; writeln(j,' ',sr/n); end; end.
отметь как лучший ответ
Объяснение:
a=int(input('a='))
b=int(input('b='))
if a!=b:
print('числа не равны')
else:
print('числа равны')