Среди нечётных строк массива опредилить сумму чётных элементов.

27.05.2010, 20:47. **Показов** 1163. **Ответов** 3

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

помогите с задачей пожалуйста!!! Дан массив X(N,M). Среди нечётных строк массива опредилить сумму чётных элементов.

Добавлено через 5 минут
люди ау...............помогите плиз!!!!!!

@Puporev · 27.05.2010, 20:47

Pascal

for i:=1 to n do
if odd(i) then//если строка нечетная
 begin
  s:=0;
  for j:=1 to m do
  if a[i,j] mod 2=0 then s:=s+a[i,j];//если элемент четный
  writeln('В строке ',i,' сумма четных=',s);
 end;

@Shelovek · 27.05.2010, 20:50

Pascal

uses
    crt;
const
     lim=100;
var
   a:array[1..lim,1..lim] of integer;
   i,j,n,s:integer;
begin
     writeln('wvedite razmernost massiva ');
     readln(n);
     writeln('wveite massiv razmerom ',n);
     for i:= 1 to n do
         begin
              for j:= 1 to n do
                  read(a[i,j]);
         end;
     s:=0;
     for i:= 1 to n do
          begin
              for j:= 1 to n do
                  if i mod 2<>0 then
                     if a[i,j] mod 2=0 then
                        s:=s+a[i,j];
          end;
writeln('summa =',s);
readkey
end.

27.05.2010, 20:51

спасибо огромное!!!!!!!!!!!!!!! Если не трудно можно написать программу полностью...... (если конечно не трудно) ЕЩЁ РАЗ ОГРОМНОЕ СПАСИБО!!!!!!

Добавлено через 38 секунд
Спасибо!!!!!!!!

CANEK BORODA
		1
	Среди нечётных строк массива опредилить сумму чётных элементов. 27.05.2010, 20:47. Показов 1163. Ответов 3 Метки нет (Все метки) помогите с задачей пожалуйста!!! Дан массив X(N,M). Среди нечётных строк массива опредилить сумму чётных элементов. Добавлено через 5 минут люди ау...............помогите плиз!!!!!!

CANEK BORODA
	27.05.2010, 20:51	4
	спасибо огромное!!!!!!!!!!!!!!! Если не трудно можно написать программу полностью...... (если конечно не трудно) ЕЩЁ РАЗ ОГРОМНОЕ СПАСИБО!!!!!! Добавлено через 38 секунд Спасибо!!!!!!!!