Практика по паскалю

[Айдар]

Добрый день, прошу помочь с двумя задачами:

1) Дан массив в каждой строке и столбце содержится строго по одному 0 (нулю). Переставить строки так чтобы гл. диагональ из 0.

Вот пример.   ответ 
3 3 0 4                   0871
5 9 3 0                   8035
0 8 7 1                   3304
8 0 3 5                   5930

2) Задана матрица А(k,l). Найти вектор B(l) каждый элемент каторго равен ср. арефм. элементов соответствующего столбца матрицы А.

[Stilet]

Наработки есть?
Как вас учат такое делать?

[Айдар]

наработка нету есть только полу-рабочая блок схема

[ОДИНОЧЕСТВО В СЕТИ]

находим № столбца в котором стоит 0 и
меняем строку местами со строкой № которой равен найденному № столбца

[Айдар]

А кодик можно, у меня в блок схеме это есть, но самое главное я код не могу написать

[ОДИНОЧЕСТВО В СЕТИ]

А кодик можно?

ничего писать не буду! пока не увижу ваших попыток!

[IT-man]

2Айдар

  type matrix=array[1..4,1..4] of Integer;
var a:matrix;
    b:matrix;
    i,j:Integer;
    k:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }

for i:=1 to 4 do
for j:=1 to 4 do
Readln(a[i,j]);
i:=1;
while (i<=4) do begin
for j:=1 to 4 do
if a[i,j]=0 then begin k:=j;Break;end;
for j:=1 to 4 do
b[k,j]:=a[i,j];
Inc(i);
end;
Writeln('-------------------');
for i:=1 to 4 do begin
for j:=1 to 4 do
write(a[i,j]:6);
Writeln;
end;
 Writeln('-------------------');
for i:=1 to 4 do begin
for j:=1 to 4 do
write(b[i,j]:6);
Writeln;
end;

Readln;

  end.

[Айдар]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

ничего писать не буду! пока не увижу ваших попыток!

вот что смог

for i=1 to n do
for j=1 to n do
if a[i,j]=0 and i<>j then nst=j

Самое главное не могу сделать перестановку строк

о спс тебе

[NSvirus]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

ничего писать не буду! пока не увижу ваших попыток!

Сообщение от IT-man

Код:

type matrix=array[1..4,1..4] of Integer;
var a:matrix;
b:matrix;
i,j:Integer;
k:Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }

for i:=1 to 4 do
for j:=1 to 4 do
Readln(a[i,j]);
i:=1;
while (i<=4) do begin
for j:=1 to 4 do
if a[i,j]=0 then begin k:=j;Break;end;
for j:=1 to 4 do
b[k,j]:=a[i,j];
Inc(i);
end;
Writeln('-------------------');
for i:=1 to 4 do begin
for j:=1 to 4 do
write(a[i,j]:6);
Writeln;
end;
Writeln('-------------------');
for i:=1 to 4 do begin
for j:=1 to 4 do
write(b[i,j]:6);
Writeln;
end;

Readln;

end.

ультиматум не удался?

[Айдар]

Слушайте а нельзя сделать все перестановки в массиве a (i,j)?

Помогите плиз сделать все перестановку в массиве a(i,j)

Ребят ну помогите сделать до завтра плиз