Массив. Определить каких значений больше четных или не четных

@Sanualom · Регистрация: 22.10.2016

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

Массив 10 элементов. Определить каких значений больше четных или не четных и напечатать. Значения должны вводиться с клавиатуры.

@_yulya_ · 26.10.2016, 21:19

Pascal

const n=10;
var
   a: array [1..10] of integer;
   i, k , l: integer;
begin
   writeln ('Введите элементы массива:');
   for i:=1 to n do read (a[i]);
   for i:=1 to n do
      begin
         if (a[i] mod 2 = 0) then k:=k+1
         else l:=l+1;
      end;
   if (k>l) then writeln (k, '>', l, ' - четных чисел в массиве больше')
   else if (k<l) then writeln (k, '<', l, ' - не четных чисел в массиве больше')
        else writeln (k, ' = ', l, ' - четных и не четных чисел в массиве равное количество');
end.

@bormant · 01.11.2016, 08:45

_yulya_,
Можно воспользоваться более дешёвой проверкой на нечетность (Odd(a[i]) или a[i] and 1<>0)

Pascal

10	if Odd(a[i]) then Inc(l) else Inc(k);

Добавлено через 3 минуты
А можно использовать четность (False)/нечетность (True) как индекс массива счетчиков:

Pascal

var
  k: array [Boolean] of Integer;
...
  for i:=1 to n do Inc(k[Odd(a[i])]);

Добавлено через 2 минуты
Ну и раз константу завели, её и в объявлении нужно использовать, иначе смысл теряется.

Pascal

3	a: array [1..n] of Integer;

@Sanualom 0 / 0 / 0 Регистрация: 22.10.2016 Сообщений: 1
		1
	Массив. Определить каких значений больше четных или не четных 22.10.2016, 21:11. Показов 5668. Ответов 2 Метки нет (Все метки) Массив 10 элементов. Определить каких значений больше четных или не четных и напечатать. Значения должны вводиться с клавиатуры. 0

	01.11.2016, 08:45

Массив. Определить каких значений больше четных или не четных

Решение