Вычислить суммы главных элементов диагоналей матриц

@Alex_Gray · Регистрация: 10.12.2009

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

1. Вычислить суммы главных элементов диагоналей матриц A[N,N], B[M,M] (M≤20,N≤30)

2. Вычислить и запомнить количество отрицательных элементов каждого столбца для матриц A[10,10], B[15,20]

@GalaX · 16.12.2009, 20:14

Вы разделом ошиблись
язык, на котором нужно писать решение, находится в другом разделе

вот блин, не успел написать, как уже перенесли в другой раздел

@Alex_Gray · 16.12.2009, 20:15 **[ТС]**

ааа...ну да, точно)
я вроде бы отправлял в раздел Free Pascal , а так получилось странно

@Тамила · 16.12.2009, 20:17

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

главных элементов диагоналей

элементов главных диагоналей?

@Alex_Gray · 16.12.2009, 20:19 **[ТС]**

Сообщение от Тамила

элементов главных диагоналей?

да, так точно

@Тамила · 16.12.2009, 20:32

Pascal

uses crt;
var
a:array[1..30,1..30]of integer;
b:array[1..20,1..20]of integer;
i,n,m,sum1,sum2,j:integer;
begin clrscr;
write('vvedite n(<=30)=');
read(n);
write('vvedite m(<=20)=');
read(m);
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
for i:=1 to m do
for j:=1 to m do
b[i,j]:=random(20);
for i:=1 to m do
 begin
  for j:=1 to m do
  write(b[i,j],'  ');
  writeln;
 end;
sum1:=0;
sum2:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then sum1:=sum1+a[i,j];
for i:=1 to m do
for j:=1 to m do
if i=j then sum2:=sum2+b[i,j];
writeln;
writeln('summa v matrice A=',sum1);
writeln('summa v matrice B=',sum2);
writeln('obshaya summa=',sum1+sum2);
readkey;
end.

@Alex_Gray · 16.12.2009, 21:00 **[ТС]**

а нельзя вторую еще посмотреть?

@Alex_Gray 0 / 0 / 0 Регистрация: 10.12.2009 Сообщений: 34
		1
	Вычислить суммы главных элементов диагоналей матриц 16.12.2009, 20:10. Показов 2176. Ответов 6 Метки нет (Все метки) 1. Вычислить суммы главных элементов диагоналей матриц A[N,N], B[M,M] (M≤20,N≤30) 2. Вычислить и запомнить количество отрицательных элементов каждого столбца для матриц A[10,10], B[15,20] 0

@GalaX 701 / 573 / 59 Регистрация: 18.11.2008 Сообщений: 2,147
	16.12.2009, 20:14	2
	Вы разделом ошиблись язык, на котором нужно писать решение, находится в другом разделе вот блин, не успел написать, как уже перенесли в другой раздел 0

@Alex_Gray 0 / 0 / 0 Регистрация: 10.12.2009 Сообщений: 34
	16.12.2009, 20:15 [ТС]	3
	ааа...ну да, точно) я вроде бы отправлял в раздел Free Pascal , а так получилось странно 0

@Тамила 753 / 546 / 211 Регистрация: 12.11.2009 Сообщений: 1,100
	16.12.2009, 20:17	4
	Сообщение от Alex_Gray главных элементов диагоналей элементов главных диагоналей? 0

@Alex_Gray 0 / 0 / 0 Регистрация: 10.12.2009 Сообщений: 34
	16.12.2009, 20:19 [ТС]	5
	Сообщение от Тамила элементов главных диагоналей? да, так точно 0

@Alex_Gray 0 / 0 / 0 Регистрация: 10.12.2009 Сообщений: 34
	16.12.2009, 21:00 [ТС]	7
	а нельзя вторую еще посмотреть? 0

Опции темы