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

@Rempi Izek · Регистрация: 12.01.2013

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

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

@CodeR · 12.01.2013, 13:34

Pascal

Var A:array[1..20,1..20] of integer;
    i,j,n,m,s:integer;
Begin
    Randomize;
    write('Кол-во строк: ');readln(n);
    write('Кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
    Begin
      s:=0;
      For j:=1 to m do
       if j mod 2 = 0 then s:=s+A[i,j];
      writeln('Сумма в ',i,' строке = ',s);
    End;
    readln;
End.

@Rempi Izek · 12.01.2013, 14:26 **[ТС]**

Спасибо большое) Просто не знал как импользовать _мод_.

@Rempi Izek 0 / 0 / 0 Регистрация: 12.01.2013 Сообщений: 9
		1
	Для каждой строки матрицы найти и напечатать сумму значений элементов расположенных в столбцах с четными номерами 12.01.2013, 13:29. Показов 1950. Ответов 2 Метки нет (Все метки) Помогите написать програму Для каждой строки матрицы найти и напечатать сумму значений элементов расположенных в столбцах с четными номерами 0

@Rempi Izek 0 / 0 / 0 Регистрация: 12.01.2013 Сообщений: 9
	12.01.2013, 14:26 [ТС]	3
	Спасибо большое) Просто не знал как импользовать _мод_. 0

Опции темы

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

Решение