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

@dim3tears · Регистрация: 02.06.2015

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

2)Дан массив целых чисел. Для каждого элемента с четным индексом найти и вывести сумму нечетных цифр и произведение четных.(через процедуру или функцию)

@Joy · 03.06.2015, 07:17

Pascal

const n=10;
var
  a:array[1..n] of integer;
  i:integer;
procedure Pout(l:integer);
var
  s,k:integer;  
  p:int64;
begin
  s:=0; p:=1;
  repeat
    k:=l mod 10;
    if odd(k) then s:=s+k else p:=p*k;
    l:=l div 10;
  until l=0;
  writeln(' сумма нечетных ',s,' произведение четных ',p);
end;  
begin
 write('Введите массив:');
 for i:=1 to n do read(a[i]);
 for i:=1 to n do begin
   write(i:4,'|',a[i]:10,' |');
   if i mod 2=0 then Pout(a[i]) else writeln;
 end;
end.

@dim3tears · 03.06.2015, 08:50 **[ТС]**

Спасибо большое!))))

@dim3tears 0 / 0 / 0 Регистрация: 02.06.2015 Сообщений: 6
		1
	Для каждого элемента матрицы с четным индексом найти и вывести сумму нечетных цифр и произведение четных 02.06.2015, 17:26. Показов 1392. Ответов 2 Метки нет (Все метки) 2)Дан массив целых чисел. Для каждого элемента с четным индексом найти и вывести сумму нечетных цифр и произведение четных.(через процедуру или функцию) 0

@dim3tears 0 / 0 / 0 Регистрация: 02.06.2015 Сообщений: 6
	03.06.2015, 08:50 [ТС]	3
	Спасибо большое!)))) 0

Опции темы

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

Решение