Для каждого столбца матрицы с четным номером найти сумму его элементов

@-o- · Регистрация: 24.06.2012

Дана матрица размера M х N. Для каждого столбца матрицы с четным номером (2, 4, …) найти сумму его элементов

@CodeR · 24.06.2012, 20:48

Сообщение от -o-

Дана матрица размера M х N. Для каждого столбца матрицы с четным номером (2, 4, …) найти сумму его элементов

Pascal

Var A:array[1..20,1..20] of integer;
    i,j,n,m,s:integer;
Begin
    Randomize;
    Repeat 
     write('Введите кол-во строк: ');readln(n);
    Until n in [1..20];
    Repeat 
     write('Введите кол-во столбцов: ');readln(m);
    Until m in [1..20];
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=Random(11)-5;
        write(A[i,j]:3);
       End;
      writeln;
     End;
    j:=0;
    Repeat
     inc(j,2);
     s:=0;
     For i:=1 to n do
      s:=s+A[i,j];
     if j<=m then writeln('Сумма элементов ',j,'-го столбца: ',s);
    Until j>m;
    readln;
End.

Надо новую тему создавать на будущее...

@-o- 0 / 0 / 0 Регистрация: 24.06.2012 Сообщений: 7
		1
	Для каждого столбца матрицы с четным номером найти сумму его элементов 24.06.2012, 20:22. Показов 2135. Ответов 1 Метки нет (Все метки) Дана матрица размера M х N. Для каждого столбца матрицы с четным номером (2, 4, …) найти сумму его элементов 0

Опции темы

Для каждого столбца матрицы с четным номером найти сумму его элементов

Решение