задача!

[tanya046]

помогите пожалуйста решить её(

[Stilet]

Наработки где?

[tanya046]

какие наработки?

[tanya046]

for i:=1 to n do
for j:=1 to n do
if j=1 then a[i,j]:=i else a[i,j]:=0;
(вот всё что есть)

[Serge_Bliznykov]

это и есть "наработки"

исправьте Ваш код на такой:

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

и всё, ваша задача решена!

[tanya046]

а как мне её в Делфи записать???

[Stilet]

А что написано в методичках? Что давалось в лекциях?
Как на паскале записать знаешь?

[tanya046]

как в паскале знаю, мне надо в делфи её написать(

[Stilet]

Напиши сюда как бы ты в паскале написала

[tanya046]

type A=array [1..100,1..100] of integer;
var i,j,N,S:integer;
MAS:A;
begin
write (‘vvedi N=’);
readln(N);
for i:=1 to N do
for j:=1 to N do
MAS[i,j]:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then a[i,j]:=i else a[i,j]:=0
writeln(‘obrab massiv’);
begin
for i:=1 to N do
write (MAS[I,j]:4);
writeln;
end;
end.
(я не знаю точно,сказали так)не уверенна,что правильно вообщем!