Заполнить квадратную матрицу порядка N

@miracle94 · Регистрация: 12.11.2012

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста решить!Очень-очень нужно.
Заранее Спасибо!))

@Shizuka · 18.05.2013, 13:29

Pascal

var
   a:array[1..100,1..100] of integer;
   i,j,n: integer;
begin
     writeln('vvedit n ');
     readln(n);
     for i:=1 to n do
         a[i,i] := i*(i+1);
     for i:=1 to n do
     begin
         for j:=1 to n do
             write(a[i,j]: 5);
         writeln;
     end;
end.

@miracle94 · 21.05.2013, 14:04 **[ТС]**

Пасиба,у вас короче)Очень удобно у меня так получилось

Pascal

program kvadrat;
 uses crt;
 var a:array[1..100,1..100] of integer;
 i,j,n,k:integer;
 begin
clrscr;
 write('n=');
readln(n);
k:=2;
 for i:=1 to n do
 begin
 for j:=1 to n do
 if i=j then
a[i,j]:=i*k;
inc(k);
end;
 for i:=1 to n do
 begin
for j:=1 to n do
 write(a[i,j]:3);
 writeln;
 end;
 readkey;
 end.

@miracle94 1 / 1 / 1 Регистрация: 12.11.2012 Сообщений: 94
		1
	Заполнить квадратную матрицу порядка N 17.05.2013, 17:24. Показов 1023. Ответов 2 Метки нет (Все метки) Помогите пожалуйста решить!Очень-очень нужно. Заранее Спасибо!)) Изображения 0

Опции темы

Заполнить квадратную матрицу порядка N

Решение