Исправить ошибку в коде

@Svetik96 · Регистрация: 07.12.2014

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s,n,i:integer;
  a:array[1..100] of integer;
begin
  s:=0;
  readln(n);
  for i:=1 to n do
  readln(a[i]);
  while (a[i]<>0) do begin
    if (a[i]>0) and (a[i]mod 2=0)then
    S:=s+a[i];
  end;
  write(s);
  readln;
end.

Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести 0. Решить с использованием целочисленного массива.

@JokeR.BY · 07.12.2014, 21:04

по большому счёту, массив тут и не нужен.

@Svetik96 · 07.12.2014, 21:06 **[ТС]**

Преподаватель сказал сделать через массив

@Puporev · 07.12.2014, 21:08

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

Преподаватель сказал сделать через массив

Ну и дуб, задача на последовательности (Series)

@JokeR.BY · 07.12.2014, 21:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
    a : Array[1..100] Of Integer;
    sum : LongInt = 0;
    i : Byte = 1;
 
begin
    ReadLn(a[i]);
    while (a[i] <> 0) do
    begin
        if ((a[i] > 0) And Not Odd(a[i])) then
            Inc(sum, a[i]);
        Inc(i);
        ReadLn(a[i]);
    end;
    WriteLn('sum=', sum);
end.

Добавлено через 39 секунд
так и быть, приплёл сюда и массив.

Добавлено через 1 минуту
а вот что получается без массива.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
    a : Integer;
    sum : LongInt = 0;
 
begin
    ReadLn(a);
    while (a <> 0) do
    begin
        if ((a > 0) And Not Odd(a)) then
            Inc(sum, a);
        ReadLn(a);
    end;
    WriteLn('sum=', sum);
end.

@Puporev · 07.12.2014, 21:26

JokeR.BY, Твои коды написаны в каком-то Паскале которым мало кто пользуется, по крайней мере в стандартных Турбо Паскаль и Паскаль АВС они не работают. И нафига эти твои приколы?

Добавлено через 2 минуты

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

Вывести сумму всех положительных четных чисел из данного набора

И для чего ты списываешь у малограмотно ТСа

Pascal
1
And Not Odd(a)

@JokeR.BY · 07.12.2014, 21:34

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

положительных

Pascal
1
(a > 0)

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

четных

Pascal
1
Not Odd(a)

что не так?

@bormant · 07.12.2014, 21:52

Puporev,
не скажу за ABC, но TP в приведенном коде не понравится только инициализация в разделе var, достаточно перенести в const или в код, если был бы не 0, иначе просто убрать инициализацию.

Скобки внешние в условиях лишние, но это не смертельно.

if (a>0) and not Odd(a) then ... -- вполне себе корректное условие.

@JokeR.BY · 07.12.2014, 22:02

bormant, ноги у чрезмерного количества скобок растут из одного случая, когда я несколько часов потратил на дебаг диплома. рефлекторно перестраховываюсь уже)

@Puporev · 08.12.2014, 08:35

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

вполне себе корректное условие.

Да, но в условии ничего не говорится о четности чисел, нужно сумму всех положительных чисел.

@bormant · 08.12.2014, 08:53

Puporev,
говорится в условии о четности, посмотрите внимательнее в первом сообщении:

Вывести сумму всех положительных четных чисел

@Puporev · 08.12.2014, 08:58

Пардон, совсем видимо отупел, ведь несколько раз прочитал условие...

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	07.12.2014, 21:04
	по большому счёту, массив тут и не нужен. 0

@Svetik96 0 / 0 / 0 Регистрация: 07.12.2014 Сообщений: 2
	07.12.2014, 21:06 [ТС]
	Преподаватель сказал сделать через массив 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	07.12.2014, 21:52
	Puporev, не скажу за ABC, но TP в приведенном коде не понравится только инициализация в разделе var, достаточно перенести в const или в код, если был бы не 0, иначе просто убрать инициализацию. Скобки внешние в условиях лишние, но это не смертельно. if (a>0) and not Odd(a) then ... -- вполне себе корректное условие. 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	07.12.2014, 22:02
	bormant, ноги у чрезмерного количества скобок растут из одного случая, когда я несколько часов потратил на дебаг диплома. рефлекторно перестраховываюсь уже) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.12.2014, 08:58
	Пардон, совсем видимо отупел, ведь несколько раз прочитал условие... 0