Преобразовать матрицу A(n,m)

[fbus]

Вы напишите полностью, а не кидайте куски какие то!

у меня только складывается такое впечатление или Вам тут все должны что-то?

[Doublefaced]

Сообщение от fbus

у меня только складывается такое впечатление или Вам тут все должны что-то?

жду помощи, зачем же тогда этот раздел?

[fbus]

нужно тогда не только просить, но и прикладывать усилия по соединению этих кусков воедино, иначе вам в раздел фриланс

[Levsha100]

Провел эксперимент, все работает!
"Уравнение" диагонали выделено красным.

[Doublefaced]

выложте решение, форма не нужна!

[Anatole]

Doublefaced
Естественно. Должны же вы хоть что-то сами далать (например найти похожее здесь на форуме). А то получается, что всю работу за вас дядя сделает.
Levsha100
Согласен с вами. Такая трактовка для диагонали прамоугольной матрицы вполне возможна. Для меня было достаточно первого сообщения.

[Doublefaced]

const n=6;
var
a:array[1..n,1..n]of integer;
i,j:integer;
begin
Writeln('Ishodnaia matrica:');
for i:= 1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(20);
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln('Preobrazovannaya matrica:');
For i:=1 to n do
For j:= 1 to m do
if j < i then a[i,j] := a[i.j]/2 else
if j > i then a[i,j] := a[i.j]*2;
readln;
end.

Помогите довести до ума.

[Doublefaced]

пож - та!
ап!!

[MaTBeu]

Вам уже все написали. Чего вы еще ждете? Чтобы вам всю программу полностью написали? Такого не будет.

Тема закрыта. Не нужно борзеть.