Двухмерные масивы

[Lev.F]

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

[Lev.F]

Решите Плиз народ Иначе мне пипец будет Дан двухмерный масив целых чисел. Вставить в него строку из нулей между всеми строками, в которых количество положительных элементов равно количеству отрицательных[/QUOTE]

[fbus]

стучи в аську, сделаю

[Snejnaya]

елки палки, язык-то какой? И в каком виде дан массив? Пускай будет консольное приложение на паскале, размерность массива и массив вводятся с клавиатуры


var n,m, i,j , chislo_poloj, chislo_otr, razmer_y, number_str:integer;
var x:array [1..20,1..20] of real;
var y:array[1..20] of integer;//в этот массив будем складывать номера подходящих строк

writeln('введите число строк массива');
readln(n);
writeln('введите число столбцов массива');
readln(m);
writeln('введите элементы массива');
//считываем весь массив
for i:=1 to n do//для каждой строки
begin
for j:=1 to m do
begin
read(x[i,j]);
end;
readln;
end;
//считаем, какие строки подходят под условие
razmer_y:=0;
for i:=1 to n do
begin
chislo_poloj:=0;
chislo_otr:=0;
for j:=0 to m do
begin
if(x[i,j]<0) then chislo_otr:=chislo_otr+1
else
if (x[i,j]>0) then chislo_poloj:=chislo_poloj+1;
end;
if (chislo_poloj=chislo_otr) then
begin
razmer_y:=razmer_y+1;
y[razmer_y]:=i;
end;
end;

//теперь в массиве y хранятся номера строк, для которых выполяется наше условие. Нифига непонятно из твоих слов - мы заменяем все подобные строки нулями, или вставляем "дополнительную" строку из нулей между двумя подходящими строками в случае, если они являются СОСЕДНИМИ. Пускай будет второе.

for i:=1 to (razmer_y-1) do
begin
if ((y[i+1]-y[i])=1) //если строки являются соседними
then
begin
number_str:=i+1;//тогда нужно вставить строку из нулей на позицию i+1
//сдвигаем все строки начиная с этой позиции и ниже на одну вниз(чтобы нули наши влезли и ничего не затерли)
for j:=n down to number_str do
for k:=1 to m do
begin
x[j+1,k]:=x[j,k];
end;
n:=n+1;
//добавляем нули
for k:=1 to m do
x[numder_str,k]:=0;
end;
end;

//как-то так

[Lev.F]

это надо в паскале

[Snejnaya]

приведенное выше и есть в паскале)))

[Lev.F]

Большое спасибо

[Lev.F]

Если не сложно кто нибудь скиньте на мыло Блок-схему muhametzhanovr@mail.ru

[Lev.F]

Она не работает сделайте кто нибудь её

[Lev.F]

кто нибудь помогите с этой тупой задачей