Паскаль. Матрица

@kirillcherkesov · Регистрация: 17.01.2010

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

Здравствуйте, подскажите пожалуйста, как будет выглядеть кусок программы для ниже указанного задания
Задана матрица B(N,N) (N<=20).
Вычислить сумму элементов главной диагонали матрицы В.

@Unick · 15.06.2010, 20:10

Pascal

Uses Crt;
type mas=array[1..20,1..20] of integer;
var B:mas;
i,j:integer;
s:real;
begin
randomize;
ClrScr;
for i:=1 to 20 do begin
for j:=1 to 20 do begin
B[i,j]:=random(9);
while(B[i,j], ' ');
{Сумма главной диагонали}
if i=j then s:=s+B[i,j];
end;
writeln;
end;
writeln;
write('CyMMa: ', s:0:0)
end.

@kirillcherkesov 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 16
		1
	Паскаль. Матрица 15.06.2010, 20:03. Показов 1025. Ответов 1 Метки нет (Все метки) Здравствуйте, подскажите пожалуйста, как будет выглядеть кусок программы для ниже указанного задания Задана матрица B(N,N) (N<=20). Вычислить сумму элементов главной диагонали матрицы В. 0

	15.06.2010, 20:10

Паскаль. Матрица

Решение