Найти сумму элементов массива, стоящих на нечетных местах

@aarneet · Регистрация: 28.11.2018

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

найти сумму элементов массива стоящих на нечетных местах делфи

@AHBAR · 18.06.2019, 10:30

aarneet,

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
VAR
a:array of integer;
i,n,s:Integer;
begin
randomize;
n := 10 + random(11);
SetLength(a, n);
s := 0;
for i := 0 to n-1 do Begin
    a[i] := random(26);
    Memo1.Lines.Add('a[' + IntToStr(i) + ']=' + IntToStr(a[i]));
    if i mod 2 = 0 then S := s + a[i];
    end;
Memo1.Lines.Add('Сумма = ' + IntToStr(S));
end;

@aarneet · 18.06.2019, 11:52 **[ТС]**

Объясните, пожалуйста, зачем Set Length?

@qwertehok · 18.06.2019, 12:08

потому что массив без размера

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

a:array of integer;

значит ему нужно задать размер

@AzAtom · 18.06.2019, 12:49

Надо складывать элементы на нечётных местах. Значит

Delphi
1
if i mod 2 = 1 then S := s + a[i];

@hodas4 · 18.06.2019, 13:15

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

Объясните, пожалуйста, зачем Set Length?

Так объявляется динамический массив.
SetLength(a, n); Где а - название массива, n - количество элементов массива

@AHBAR · 18.06.2019, 14:05

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

Надо складывать элементы на нечётных местах. Значит

совершенно верно, я косякнулся )

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

Объясните, пожалуйста, зачем Set Length?

Процедура SetLength задает размер одномерного динамического массива (в данном конкретном случае)
если не знаете, что это такое, то можно задать статический массив
и нужно четность/нечетность исправить в коде

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
VAR
const
n = 10;
a:array[1..n] of integer;
i,s:Integer;
begin
randomize;
s := 0;
for i := 1 to n do Begin
    a[i] := random(26);
    Memo1.Lines.Add('a[' + IntToStr(i) + ']=' + IntToStr(a[i]));
    if i mod 2 = 1 then S := s + a[i];
    end;
Memo1.Lines.Add('Сумма = ' + IntToStr(S));
end;

@D1973 · 18.06.2019, 15:17

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

if i mod 2 = 1 then...

Delphi
1
if Odd(i) then...

Короче на 5 букафф

@AHBAR · 19.06.2019, 04:59

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

Короче на 5 букафф

когда забыл в каком случае она принимает true, а справочник гуглить лень, написал по-старинке

Новые блоги и статьи Все статьи Все блоги /
Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .	Mapped types (отображённые типы) в TypeScript Reangularity 03.11.2025 Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .	Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна GameUnited 02.11.2025 Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .	Протоколы в Python py-thonny 31.10.2025 Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .	C++26: Read-copy-update (RCU) bytestream 30.10.2025 Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .
Изображения webp на старых x32 ОС Windows XP и Windows 7 Argus19 30.10.2025 Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .	Passkey в ASP.NET Core identity stackOverflow 29.10.2025 Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .	Последние результаты исследования от команды MCM (октябрь 2025 г.) Programma_Boinc 29.10.2025 Последние результаты исследования от команды MCM (октябрь 2025 г. ) Поскольку мы продолжаем изучать гены, которые играют ведущую роль в развитии рака, в рамках проекта "Картирование раковых. . .	Мысли в слух kumehtar 29.10.2025 Обнаружил, что мысли лучше писать короткими фразами. Таким образом внимание читателя успевает охватить всю фразу сразу, за один раз, не соскакивая и не прерываясь. А если писать это длинным текстом,. . .	Побитовые операторы в Python AI_Generated 28.10.2025 Побитовые операторы - это не реликт эпохи, когда каждый байт был на вес золота. Да, сейчас оперативка стоит копейки, но задачи изменились. Вместо экономии памяти приходится решать другие проблемы:. . .

Найти сумму элементов массива, стоящих на нечетных местах

Решение

Решение

@aarneet 0 / 0 / 0 Регистрация: 28.11.2018 Сообщений: 11

	Найти сумму элементов массива, стоящих на нечетных местах 18.06.2019, 06:48. Показов 3659. Ответов 8 Метки нет (Все метки) найти сумму элементов массива стоящих на нечетных местах делфи 0

@aarneet 0 / 0 / 0 Регистрация: 28.11.2018 Сообщений: 11
	18.06.2019, 11:52 [ТС]
	Объясните, пожалуйста, зачем Set Length? 0

Опции темы