Определить суммы элементов массива с четными и нечетными индексами; вывести их значения на печать

@игорь199617 · Регистрация: 12.03.2014

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

Дан одномерный массив X (x1, x2, …, xN). Определить суммы элементов массива с четными и нечетными индексами; вывести их значения на печать. Элементы с наибольшей суммой обнулить.

@samantha · 24.03.2014, 22:35

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const N=10;
var a:array[1..N] of integer;
i,d,q:integer;
begin
d:=0;  //сумма нечётных
q:=0;  //сумма чётных
for i:=1 to N do
read(a[i]);
for i:=1 to N do
if i mod 2=0 then q:=q+a[i]
else d:=d+a[i];
if q>d then begin
for i:=1 to N do
if i mod 2=0 then a[i]:=0
end
else 
for i:=1 to N do
if i mod 2<>0 then a[i]:=0;
for i:=1 to N do
write(a[i],' ');
readln
end.

@Alex47_pro · 25.03.2014, 21:59

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var arr:array[1..50] of integer;
    i,n,sum1,sum2:integer;
begin
write('Введите размерность массива: ');
readln(n);
for i:=1 to n do
read(arr[i]);
for i:=1 to n do
 if i mod 2 = 1 then
  sum1:=sum1+arr[i]
 else sum2:=sum2+arr[i];
writeln('Сумма нечётных = ',sum1);
writeln('Сумма чётных = ',sum2);
if sum1>sum2 then
 begin
  for i:=1 to n do
   if i mod 2 = 1 then arr[i]:=0;
 end
else
 begin
  for i:=1 to n do
   if i mod 2 = 0 then arr[i]:=0;
 end;
for i:=1 to n do
write(arr[i],' ');
end.

@samantha · 25.03.2014, 23:27

Извиняюсь за ошибку в предыдущем варианте

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const N=10;
var a:array[1..N] of integer;
i,d,q:integer;
begin
d:=0;  //сумма нечётных
q:=0;  //сумма чётных
for i:=1 to N do
read(a[i]);
for i:=1 to N do
if i mod 2=0 then q:=q+a[i]
else d:=d+a[i];
  if q>d then begin
  for i:=1 to N do
  if a[i] mod 2=0 then a[i]:=0
  end
  else 
  for i:=1 to N do
  if a[i] mod 2 <> 0 then
  a[i]:=0;
  for i:=1 to N do
  write(a[i],' ');
  readln
  end.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Определить суммы элементов массива с четными и нечетными индексами; вывести их значения на печать

Решение

Решение

Решение

@игорь199617 0 / 0 / 0 Регистрация: 12.03.2014 Сообщений: 7

	Определить суммы элементов массива с четными и нечетными индексами; вывести их значения на печать 20.03.2014, 14:22. Показов 1485. Ответов 3 Метки нет (Все метки) Дан одномерный массив X (x1, x2, …, xN). Определить суммы элементов массива с четными и нечетными индексами; вывести их значения на печать. Элементы с наибольшей суммой обнулить. 0