Выяснить, является ли сумма элементов массива четным числом

@le7 · Регистрация: 13.12.2016

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

помогите пожалуйста решить задачу через паскаль
для целочисленного массива а[1..15] выяснить является ли сумма его элементом четным числом вывести да или нет

Kodzaev · 07.01.2017, 23:31

Pascal

begin
  var a := ArrRandomInteger(15, -30, 30).Println;
  if Odd(a.Sum) then Write('нет') else Write('да')
end.

@le7 · 07.01.2017, 23:48 **[ТС]**

Kodzaev, Program7.pas(2) : Неизвестное имя 'ArrRandomInteger'
ошибка

@volvo · 07.01.2017, 23:50

le7, обновляйте компилятор, в новой версии такой ошибки нет.

Kodzaev · 07.01.2017, 23:56

Сообщение от volvo

обновляйте компилятор

Ну, или переделать:

Pascal

var
  a: array [1..15] of integer;
  i: byte;
  s: integer;
  
begin
  for i := 1 to 15 do
  begin
    a[i] := -15 + Random(31);
    s := s + a[i];
    Write(a[i], ' ')
  end;
  WriteLn;
  if Odd(s) then Write('нет') else Write('да')
end.

@le7 · 08.01.2017, 00:01 **[ТС]**

Kodzaev, как же вы мне сегодня помогли, спасибо вам большое, не знаю как еще отблагодарить

Kodzaev · 08.01.2017, 00:05

le7, скажите спасибо volvo. Он все те же задачи переделал под стиль .NET, чего не смог сделать я.

@le7 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 24
		1
	Выяснить, является ли сумма элементов массива четным числом 07.01.2017, 23:17. Показов 2626. Ответов 6 Метки массив pascal, одномерный массив pascal, четность (Все метки) помогите пожалуйста решить задачу через паскаль для целочисленного массива а[1..15] выяснить является ли сумма его элементом четным числом вывести да или нет 0

@le7 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 24
	07.01.2017, 23:48 [ТС]	3
	Kodzaev, Program7.pas(2) : Неизвестное имя 'ArrRandomInteger' ошибка 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	07.01.2017, 23:50	4
	le7, обновляйте компилятор, в новой версии такой ошибки нет. 1

@le7 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 24
	08.01.2017, 00:01 [ТС]	6
	Kodzaev, как же вы мне сегодня помогли, спасибо вам большое, не знаю как еще отблагодарить 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	08.01.2017, 00:05	7
	le7, скажите спасибо volvo. Он все те же задачи переделал под стиль .NET, чего не смог сделать я. 0

Выяснить, является ли сумма элементов массива четным числом

Решение