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

@modal · Регистрация: 24.09.2013

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

Помогите написать программу.
Дана действительная квадратная матрица C(n*m). Найти сумму элементов каждой нечетной строки матрицы.

@ermolay · 01.10.2013, 19:26

Pascal

var
  a: array[1..20,1..20] of integer;
  n,m,i,j,s: integer;
begin
  randomize;
  repeat
    write('Ââåäèòå ðàçìåðû ìàòðèöû n, m ÷åðåç ïðîáåë: ');
    readln(n,m);
  until (n in [1..20]) and (m in [1..20]);
  writeln('Ìàòðèöà:');
  for i:=1 to n do
  begin
    s:=0;
    for j:=1 to m do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:4);
      if odd(i) then s:=s+a[i,j];
    end;
    if odd(i) then writeln('   s=',s) else writeln;
  end;
  readln;
end.

@modal 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 23
		1
	Найти сумму элементов каждой нечетной строки матрицы 01.10.2013, 18:07. Показов 2862. Ответов 1 Метки нет (Все метки) Помогите написать программу. Дана действительная квадратная матрица C(n*m). Найти сумму элементов каждой нечетной строки матрицы. 0

	01.10.2013, 19:26

Опции темы

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

Решение