Написать рекурсивную функцию нахождения количества четных элементов в массиве

@GamBitFRK · Регистрация: 17.12.2011

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

@Puporev · 24.03.2012, 19:49

Pascal

uses crt;
const nmax=100;
type TArr=array[1..nmax] of integer;
function Chet(a:TArr;k,n:integer):integer;
begin
if a[k]mod 2=0 then
 begin
  if k=n then Chet:=1
  else Chet:=1+Chet(a,k+1,n)
 end
else
 begin
  if k=n then Chet:=0
  else Chet:=Chet(a,k+1,n)
  end;
end;
var Arr:TArr;
    n,i:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  Arr[i]:=Random(20)+1;
  write(Arr[i]:4);
 end;
writeln;
writeln('Количество четных элементов массива = ', Chet(Arr,1,n));
readln
end.

@GamBitFRK · 24.03.2012, 23:10 **[ТС]**

спасибо))))

@GamBitFRK 0 / 0 / 1 Регистрация: 17.12.2011 Сообщений: 33
		1
	Написать рекурсивную функцию нахождения количества четных элементов в массиве 24.03.2012, 19:19. Показов 1215. Ответов 2 Метки нет (Все метки) Написать рекурсивную функцию нахождения количества четных элементов в массиве 0

@GamBitFRK 0 / 0 / 1 Регистрация: 17.12.2011 Сообщений: 33
	24.03.2012, 23:10 [ТС]	3
	спасибо)))) 0

Опции темы

Написать рекурсивную функцию нахождения количества четных элементов в массиве

Решение