Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных элементов, с последним столбцом

@Kuznechok · Регистрация: 27.04.2013

Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных элементов, с последним столбцом.

@StrelokCj · 27.04.2013, 20:33

Pascal

uses crt;
const
n=5;
m=5;
var d:array[1..n,1..m] of integer;
e:array[1..m] of integer;
i,j,k,max,h:integer;
begin
clrscr;
randomize;
for i:=1 to n do
    e[i]:=0;
for i:=1 to n do begin
    for j:=1 to m do begin
        d[i,j]:=random(21)-10;
        write(d[i,j]:4);
        if (d[i,j]<0) then e[j]:=e[j]+1;
    end;
    writeln;
end;
writeln;
max:=e[1];
for i:=1 to m do
    if (max<=e[i]) then begin
    max:=e[i];
    k:=i;
    end;
for j:=1 to n do begin
    h:=d[j,k];
    d[j,k]:=d[j,m];
    d[j,m]:=h;
end;
for i:=1 to n do begin
    for j:=1 to m do begin
        write(d[i,j]:4);
    end;
    writeln;
end;
readkey;
end.

@Kuznechok 0 / 0 / 0 Регистрация: 27.04.2013 Сообщений: 5
		1
	Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных элементов, с последним столбцом 27.04.2013, 15:28. Показов 1322. Ответов 1 Метки нет (Все метки) Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных элементов, с последним столбцом. 0

Опции темы

Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных элементов, с последним столбцом

Решение