{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"} const m=100; var a:array[1..m,1..m]of integer; i,j,S,n,k: integer; begin Readln(n); for i:=1 to n do begin writeln; for j:=1 to n do begin a[i,j]:=random(100)-50; write(a[i,j]:4);
end; end; for i:=1 to n do if a[i,i]>0 then begin s:=s+a[i,i]; k:=k+1; end; writeln; if k<>0 then writeln('SR=', s/k) else writeln('Net <0'); end.
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:4);
end;
end;
for i:=1 to n do
if a[i,i]>0 then
begin
s:=s+a[i,i];
k:=k+1;
end;
writeln;
if k<>0 then
writeln('SR=', s/k)
else
writeln('Net <0');
end.
bool ok1(int a, int b, int c){
return (a+b > c && a+c > b && b+c > a) && min(a,min(b,c)) > 0;
}
bool ok2(int a, int b, int c){
return ok1(a,b,c) && (a == b || a == c || b == c);
}
signed main(){
const int n = 3, m = 7;
int arr[n][m];
for(int i = 0; i < n; i++)
for(int j = 0; j < m; j++)
cin >> arr[i][j];
vector<int> ans;
for(int j = 0; j < m; j++)
if(ok2(arr[0][j],arr[1][j],arr[2][j]))
ans.push_back(j+1);
cout << ans.size() << "\n";
for(auto i: ans)
cout << i << " ";
}
Подробнее - на -
Объяснение: