Найти сумму элементов каждой строки данного массива.

@Mr.Ben · Регистрация: 05.12.2009

Помогите с задачей плиз =)
Дан двумерный массив размерностью 3х3. Найти сумму элементов каждой строки данного массива.

@maladoy · 23.01.2010, 14:05

Код

for i:=1 to 3 do begin
s:=0;
for j:=1 to 3 do
s:=s+a[i,j];
writeln(s);
end;

@Тамила · 23.01.2010, 14:07

Pascal

uses crt;
var
a:array[1..3,1..3]of integer;
i,j,sum:integer;
begin clrscr;
for i:=1 to 3 do
for j:=1 to 3 do
 begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
 end;
writeln;
for i:=1 to 3 do
 begin
  for j:=1 to 3 do
  write(a[i,j],'  ');
  writeln;
 end;
sum:=0;
writeln;
for i:=1 to 3 do
 begin
  sum:=0;
  for j:=1 to 3 do
  sum:=sum+a[i,j];
  writeln('sum[',i,']=',sum);
 end;
readkey;
end.

09.05.2010, 18:43

для матрицы из 3 столбцов и 10 строк отпечатать сумму элементов каждой строки,для которой значение этой суммы оказалось больше заданной величины,но меньше другой заданной величины,и число таких строк.

спасибо

@Mr.Ben 0 / 0 / 0 Регистрация: 05.12.2009 Сообщений: 62
		1
	Найти сумму элементов каждой строки данного массива. 23.01.2010, 13:51. Показов 11898. Ответов 3 Метки нет (Все метки) Помогите с задачей плиз =) Дан двумерный массив размерностью 3х3. Найти сумму элементов каждой строки данного массива. 0

@maladoy 113 / 85 / 56 Регистрация: 09.01.2009 Сообщений: 209
	23.01.2010, 14:05	2
	Код for i:=1 to 3 do begin s:=0; for j:=1 to 3 do s:=s+a[i,j]; writeln(s); end; 0

NosceTeIpsum
	09.05.2010, 18:43	4
	для матрицы из 3 столбцов и 10 строк отпечатать сумму элементов каждой строки,для которой значение этой суммы оказалось больше заданной величины,но меньше другой заданной величины,и число таких строк. спасибо

Опции темы