Если сумма всех элементов массива чётная, вывести количество нечётных элементов массива

@СанекКенас · Регистрация: 07.12.2014

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

Дан массив, содержащий неотрицательные целые числа. Если сумма всех элементов массива чётная, нужно вывести количество нечётных элементов массива, если нечётная-количество чётных.

@CodeR · 15.05.2015, 12:04

Pascal

Const nmax=100;
Var A:array[1..nmax] of integer;
    i,k1,k2,s,n:integer;
Begin
    Repeat
     write('Введите количество элементов: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    k1:=0;k2:=0;s:=0;
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      s:=s+A[i];
      if odd(A[i]) then k1:=k1+1
       else k2:=k2+1;
    End;
    writeln;
    writeln('Сумма элементов массива = ',s);
    if odd(s) then writeln('Чётных элементов =  ',k2)
     else writeln('Нечётных элементов =  ',k1);
    readln;
End.

@СанекКенас 0 / 0 / 1 Регистрация: 07.12.2014 Сообщений: 103
		1
	Если сумма всех элементов массива чётная, вывести количество нечётных элементов массива 14.05.2015, 22:29. Показов 5714. Ответов 1 Метки нет (Все метки) Дан массив, содержащий неотрицательные целые числа. Если сумма всех элементов массива чётная, нужно вывести количество нечётных элементов массива, если нечётная-количество чётных. 0

	15.05.2015, 12:04

Если сумма всех элементов массива чётная, вывести количество нечётных элементов массива

Решение