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

@Sash0k13121995 · Регистрация: 11.04.2012

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

Здравствуйте! Помогите решить задачу. Заранее спасибо!

Создать массив вещественных чисел. Найти сумму элементов, стоящих на нечетных местах и вывести результат работы на экран.

@Pacan1 · 11.04.2012, 20:44

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
const n=5;
var
i:integer;
sum:real;
a:array[1..n] of real;
begin
clrscr;
randomize;
for i:=1 to n do
a[i]:=random(30);
for i:=1 to n do
write(a[i]:5:1,' ');
sum:=0;
for i:=1 to n do
 if i mod 2<>0  then sum:=sum+a[i];
writeln;
writeln(sum:5:1);
readln
end.

@Sash0k13121995 · 11.04.2012, 22:45 **[ТС]**

Спасибо, большое! +1

Kodzaev · 12.04.2012, 00:18

Pacan1,

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

Создать массив вещественных чисел

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses crt;
Var
x: Array[1..100] of Real;
i,n: Integer;
s: Real;
BEGIN
Clrscr;
Randomize;
Writeln('Введите кол-во чисел: '); Readln(n);
Writeln('Исходный массив:');
For i:=1 to n do
begin
  x[i]:=10*Random;
  Write(x[i]:8:5);
end;
For i:=1 to n do
If i mod 2<>0 Then s:=s+x[i];
Writeln;
Writeln('Сумма элементов, стоящих на нечетных местах: ',s:2:5);
Readln
END.

@Sash0k13121995 · 12.04.2012, 17:58 **[ТС]**

И Вам тоже спасибо! +1

Добавлено через 1 минуту
Больше ответы в этой теме не принимаю.

Новые блоги и статьи Все статьи Все блоги /
Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс 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 Обнаружил, что мысли лучше писать короткими фразами. Таким образом внимание читателя успевает охватить всю фразу сразу, за один раз, не соскакивая и не прерываясь. А если писать это длинным текстом,. . .

@Sash0k13121995 0 / 0 / 2 Регистрация: 11.04.2012 Сообщений: 29

	Массив: найти сумму элементов, стоящих на нечетных местах 11.04.2012, 20:23. Показов 17288. Ответов 4 Метки нет (Все метки) Здравствуйте! Помогите решить задачу. Заранее спасибо! Создать массив вещественных чисел. Найти сумму элементов, стоящих на нечетных местах и вывести результат работы на экран. 0

@Sash0k13121995 0 / 0 / 2 Регистрация: 11.04.2012 Сообщений: 29
	11.04.2012, 22:45 [ТС]
	Спасибо, большое! +1 0

@Sash0k13121995 0 / 0 / 2 Регистрация: 11.04.2012 Сообщений: 29
	12.04.2012, 17:58 [ТС]
	И Вам тоже спасибо! +1 Добавлено через 1 минуту Больше ответы в этой теме не принимаю. 0

Опции темы