для целочисленного массива A[1:15] определить является ли сумма его элементов четным числом.Вывести на печать ДА или НЕТ

@Gold10 · Регистрация: 17.10.2017

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

@Cyborg Drone · 19.10.2017, 14:45

Pascal

const m = 15;
var a: array[1..m] of longint;
    i: integer;
    even: boolean;
begin
  randomize;
  even := TRUE;
  writeln('Array:');
  for i := 1 to m do
    begin
      a[i] := -random(19999) + 9999;
      writeln(a[i]:5);
      even := even xor odd(a[i])
    end;
  if even
    then writeln('ДА')
    else writeln('НЕТ');
  readln
end.

@Gold10 0 / 0 / 0 Регистрация: 17.10.2017 Сообщений: 10
		1
	для целочисленного массива A[1:15] определить является ли сумма его элементов четным числом.Вывести на печать ДА или НЕТ 19.10.2017, 11:33. Показов 2911. Ответов 1 Метки нет (Все метки) для целочисленного массива A[1:15] определить является ли сумма его элементов четным числом.Вывести на печать ДА или НЕТ 0

	19.10.2017, 14:45

Опции темы

для целочисленного массива A[1:15] определить является ли сумма его элементов четным числом.Вывести на печать ДА или НЕТ

Решение