Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца которых нечетный.

@pro-x · Регистрация: 20.10.2010

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

@denisneposeda · 20.10.2010, 17:44

pro-x, все считает...только где четные номера, выбрасывает нули:

Pascal

uses crt;
const
n=5;
m=5;
var a:array[1..1000,1..1000] of integer;
    i,j,s,k,x:integer;
begin
clrscr;
{çàáèâàåì ìàññèâ}
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(41)-19;
{âûâîä èñõîäíîé ìàòðèöû}
writeln('Ishodna9 matriza:');
for i:=1 to n do
 begin
  write(' ':5);
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
{ñ÷èòàåò ñóììó â ñòîëáöàõ}
for j:=1 to m do
 begin
 S:=0;
 if j mod 2<>0 then
 begin
  for i:=1 to n do
  S:=s+a[i,j];
{äåëàåì äîïîëíèòåëüíóþ ñòðîêó}
  a[n+1,j]:=s
  end;
 end;
writeln;
{âûâîä äîïîëüíèòåëüíîé ñòðîêè}
write('Summa');
for j:=1 to m do
write(a[n+1,j]:5);
end.

@pro-x 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 43
		1
	Дан двумерный массив размерностью 55. Вычислить сумму элементов, номер столбца которых нечетный. 20.10.2010, 17:26. Показов* 1730. Ответов 1 Метки нет (Все метки) Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца которых нечетный. 0

	20.10.2010, 17:44

Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номер столбца которых нечетный.

Решение