дана матрица( любая). если в заданной матрице количество

[xov]

дана матрица( любая). если в заданной матрице количество отрицательных элементов в чётных строках меньше количества положительных- в нечётных, то поменяйте местами последнюю строку и главную диагональ.

[malinoff]

Язык? Наработки?

[Hacker19_90]

ну сначало проверяйте на равенство отрицательных и положительных
как-то так

pol := 0;
otr := 0;
for j := 1 to cols do
    for i := 1 to rows do
    begin
        if ((i mod 2) <> 0) and (massiv[i,j] > 0) then Inc(pol)
        else if massiv[i,j] < 0 then Inc(otr);
    end;

дальше сверяем и если надо, то меняем

if otr < pol then
begin
    i := 1;
    for j := 1 to cols do
    begin
        temp := massiv[i,j];
        massiv[i,j] := massiv[rows,j]
        massiv[rows,j] := temp;
        Inc(i);
    end;
end;

где rows, cols это количество строк и столбцов.
Так как речь идёт о главной диагонали эти значения должны быть равны

[alex_8]

#include <conio.h>
#include <stdio.h>
#include <stdlib.h>

int **matrix, n, m, pozitiv, negativ, tmp;

void main()
{
	clrscr();
	randomize();
	printf("Enter the number of rows: ");
	scanf("%i", &n);
	printf("Enter the number of columns: ");
	scanf("%i", &m);
	matrix = new int* [n];
	pozitiv = negativ = 0;
	for (int i = 0; i < n; i++)
	{
		matrix[i] = new int [m];
	}
	for (int i = 0; i < n; i++)
	{
		for (int j = 0; j < m; j++)
		{
			matrix[i][j] = random(20)-10;
			printf("%5i", matrix[i][j]);
		}
		printf("\n");
		if (i % 2 == 0)
		{
			for (int j = 0; j < m; j++)
			{
				if (matrix[i][j] > 0) pozitiv++;
			}
		}
		else
		{
			for (int j = 0; j < m; j++)
			{
				if (matrix[i][j] < 0) negativ++;
			}
		}
	}
	printf("pozitiv: %i, negativ: %i\n", pozitiv, negativ);
	if (negativ < pozitiv)
	{
		for (int j = 0; j < m; j++)
		{
			tmp = matrix[j][j];
			matrix[j][j] = matrix[m-1][j];
			matrix[m-1][j] = tmp;
		}
		for (int i = 0; i < n; i++)
		{
			for (int j = 0; j < m; j++)
			{
				printf("%5i", matrix[i][j]);
			}
			printf("\n");
		}
	}

	for (int i = 0; i < n; i++)
	{
		delete matrix[i];
	}
	delete []matrix;
	getch();
}

[xov]

Hacker19_90
program ew3;
var
a: array [1..5,1..5] of integer;
i,j: byte;
pol,otr: integer;
f:text;
begin

assign ( f,'kostya.txt');
reset(f);
writeln('isxodnaia matricha');
for i:=1 to 5 do
begin
writeln;
for j:=1 to 5 do
begin
read( f, a[i,j]);
write (a[i,j]);
pol := 0;
otr := 0;
for j := 1 to i do
for i := 1 to rows do
begin
if ((i mod 2) <> 0) and (massiv[i,j] > 0) then Inc(pol)
else if massiv[i,j] < 0 then Inc(otr);
end;



if otr < pol then
begin
i := 1;
for j := 1 to j do
begin
temp := massiv[i,j];
massiv[i,j] := massiv[rows,j]
massiv[,j] := temp;
Inc(i);
end;
end;

[xov]

что тут ещё добавить нужно?

[xov]

посмотри ниже что добавить нужно плиз