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

@Niktanya · Регистрация: 22.05.2010

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

дана матрица M*N. для каждой строчки четным номером определить сумму ее элементов.

Вот наработка

Pascal

Const m=3;  const n=3;
 var a: array[1..m, 1..n] of integer;
 i,j,s:integer;
 begin
  writeln ( 'vvedite massiv' );
  for i:=1 to m do
   for j:=1 to n do
    read (a[i,j]);
    if i=2 then
 
    for i:=2 to m Do
         s:=0;
 s:=s+a[i,j];
  writeln(s);
    end.

@Hidalgo08 · 27.05.2010, 22:13

Pascal

for i:=1 to n do
   for j:=1 to n do
     if a[i,j] mod 2 = 0 then
       sum:=sum+a[i,j];

@Sapphir · 27.05.2010, 22:22

Hidalgo08, наверно в виду имеется четный номер строки, а не элемента.

Pascal

Const m=3; const n=3;
var
 a: array[1..m, 1..n] of integer;
 i,j,s:integer;
begin
 s:=0;
 writeln ( 'vvedite massiv' );
 for i:=1 to m do
  for j:=1 to n do
   read (a[i,j]);
 for i:=1 to m do
  for j:=1 to n do
   if i mod 2 = 0 then
    s:=s+a[i,j];
writeln(s);
end.

Опции темы