Двумерный массив. Найти сумму элементов нечетных строк и произведение элементов четных строк

@фоте · Регистрация: 15.04.2012

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

помогите пожалуйста
Задан двумерный массив A(K,N). Найти сумму элементов нечетных строк и произведение элементов четных строк.
Буду очень благодарен, никак не могу сообразить как делать(

@Владимир_ВМ · 15.04.2012, 23:43

Pascal

const k=5;n=5;
var
A:array[1..k,1..n]of integer;
i,j,s,p:integer;
begin
s:=0;p:=1;
for i:=1 to k do
  for j:=1 to n do
     begin
     read(a[i,j]);
     if i mod 2=0 then
       begin
         s:=s+a[i,j];
         p:=p*a[i,j];
       end;
     end;
writeln('summa=',s,'   proizvedenie=',p);
end.

@UserABC · 15.04.2012, 23:54

Сообщение от фоте

Задан двумерный массив A(K,N). Найти сумму элементов нечетных строк и произведение элементов четных строк

Pascal

for i:=1 to n do
if  odd(i) then//åñëè ñòðîêà íå÷åòíàÿ
 begin
  s:=0;
  for j:=1 to m do   begin
   s:=s+a[i,j];//åñëè ýëåìåíò ÷åòíûé
  writeln('Â ñòðîêå ',i,' ñóììà =',s); end;
 end;
 for i:=1 to n do
if not odd(i) then//åñëè ñòðîêà íå÷åòíàÿ
 begin
  d:=1;
  for j:=1 to m do begin
   d:=d*a[i,j];//åñëè ýëåìåíò ÷åòíûé
  writeln('Â ñòðîêå ',i,' ïðîèçâåäåíèå=',d); end;
 end;

@фоте 0 / 0 / 0 Регистрация: 15.04.2012 Сообщений: 13
		1
	Двумерный массив. Найти сумму элементов нечетных строк и произведение элементов четных строк 15.04.2012, 19:33. Показов 13619. Ответов 2 Метки нет (Все метки) помогите пожалуйста Задан двумерный массив A(K,N). Найти сумму элементов нечетных строк и произведение элементов четных строк. Буду очень благодарен, никак не могу сообразить как делать( 0

	15.04.2012, 23:54

Опции темы

Двумерный массив. Найти сумму элементов нечетных строк и произведение элементов четных строк

Решение