заполнения матрицы

[fatorial]

Заполнить массив n*n по правилу: 2 2 2 ... 2
0 4 4 ... 4
0 0 8 ... 8
.. .. .. ... ..
0 0 0 ... 2(в степени n)


program MPCS;
uses CRT;
var i,j,n,a:integer;

begin
CLRSCR;
for i:=0 to n do
begin

for j:=0 to n do
begin
if i<j then a[i,j]:=0
else
begin
a[i,j]:=2
for k:=1 to n do
a[i,j]=a[i,j]*2;
end;
writeln
end;
end.


проверте

[andrewpalkin]

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

Заполнить массив n*n по правилу: 2 2 2 ... 2
0 4 4 ... 4
0 0 8 ... 8
.. .. .. ... ..
0 0 0 ... 2(в степени n)


program MPCS;
uses CRT;
var i,j,n,a:integer;

begin
CLRSCR;
for i:=0 to n do
begin

for j:=0 to n do
begin
if i<j then a[i,j]:=0
else
begin
a[i,j]:=2
for k:=1 to n do
a[i,j]=a[i,j]*2;
end;
writeln
end;
end.


проверте

А ты программу сам запустил , у тебя она выдает все что ты хотел ?

[fatorial]

нет........
уже по другому написал
но нифига не получется

program MPCS;
uses CRT;
const x=5; y=5;
var i,j,n,m,k:integer;
a:array [0..x,0..y] of integer;

begin
CLRSCR;


for i:=1 to n do
begin

for j:=1 to n do
begin
if i<j then a[i,j]:=0
else

a[i,j]:=2;
for k:=1 to n do
a[i,j]:=a[i,j]*2;
write (a[i,j]:8);
writeln
end;



end;
readln;

end.

[andrewpalkin]

А чему у тебя равно n ???

Ты его используешь во всех циклах , но чему он у тебя равен ???

[fatorial]

uses CRT;
const n=5; m=5;
var i,j,k:integer;
a:array [1..n,1..n] of integer;

begin
CLRSCR;


for i:=1 to n do
begin

for j:=1 to n do
begin
if i<j then a[i,j]:=0
else

a[i,j]:=2;
for k:=1 to n do
a[i,j]:=a[i,j]*2;
write (a[i,j]:8);
writeln
end;



end;
readln;

end.

[Mad_Cat]

var k:integer;z:integer;
{..........}

k:=2;
z:=0;
for i:=1 to n do
begin
z:=z+1;
for j:=1 to n do
if j>=z then 
a[i,j]:=k else a[i,j]:=0;
k:=k*2;
end;