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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@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,158 Записей в блоге: 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 Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	08.12.2014, 08:58
	Пардон, совсем видимо отупел, ведь несколько раз прочитал условие... 0