Получить квадратную матрицу по правилу

@Darrius · Регистрация: 19.12.2010

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

матрица изображена на рисунке

@КонецСвета · 27.11.2011, 17:45

Pascal

uses crt;
var a: array [1..100,1..100] of integer;
    i,j,n: integer;
begin
write('N=');
readln(n);
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if i=j then a[i,j]:=i-1
           else a[i,j]:=0;
        write(a[i,j]:3);
        end;
    writeln;
    end;
end.

@Darrius 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 18
		1
	Получить квадратную матрицу по правилу 27.11.2011, 17:33. Показов 1212. Ответов 1 Метки нет (Все метки) матрица изображена на рисунке Миниатюры 0

Опции темы

Получить квадратную матрицу по правилу

Решение