Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Fisya
1 / 1 / 0
Регистрация: 27.09.2013
Сообщений: 26
#1

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

20.10.2013, 15:58. Просмотров 872. Ответов 3
Метки нет (Все метки)

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

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2013, 15:58
Ответы с готовыми решениями:

Вычислить сумму элементов массива, стоящих на нечетных местах
Дан вектор А(n). Вычислить: сумму элементов, стоящих на нечетных местах

Подсчитать сумму квадратов элементов массива, стоящих на нечетных местах.
Дан массив из 10 целых чисел. Подсчитать сумму квадратов элементов, стоящих на...

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
дан массив (B) из (N) элементов.Найти сумму и кол-во четных элементов стоящих...

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

Сосчитать количество четных элементов массива, стоящих на нечетных местах.
Сосчитать количество четных элементов массива, стоящих на нечетных местах. В...

3
erl27
892 / 741 / 831
Регистрация: 06.09.2013
Сообщений: 1,561
20.10.2013, 19:29 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  A: array[1..200] of integer;
  S, i, N: integer;
  
begin
  write(' N = ');
  readln(N);
  S := 0;
  writeln('Исходный случайный массив:');
  randomize;
  for i := 1 to N do
  begin
    a[i] := -100 + random(200); //случайный элемент [-100, 99]
    write(' ', a[i]);
    if odd(i) then S := S + a[i] //если номер i нечетный, то увеличиваем сумму
  end;
  writeln;
  writeln;
  writeln('Сумма элементов массива, стоящих на нечетных мествх:  ', S)
end.
2
Fisya
1 / 1 / 0
Регистрация: 27.09.2013
Сообщений: 26
26.10.2013, 15:28  [ТС] #3
erl27, спасибо) Слушай, а можешь как-то поподробнее все рассказать. А то я совсем рак

Добавлено через 19 часов 59 минут
erl27, а так правильно будет?
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
var
A: array[1..100] of integer;
S, i, N: integer;
 
begin
write(' N = ');
readln(N);
S := 0;
writeln('Ishodnbli slychainbli massiv:');
for i := 1 to N do
begin
if (i mod 2 <>0) then S:=S+i; //если номер i нечетный, то увеличиваем сумму
end;
writeln;
writeln;
writeln('Symma elementov massiva,stoiaschih na nechetnblh mestah: ', S);
readln;
end.
0
erl27
892 / 741 / 831
Регистрация: 06.09.2013
Сообщений: 1,561
26.10.2013, 15:59 #4
Правильно, но только вместо (i mod 2 <> 0) можно написать (i mod 2 = 1). Но здесь разницы никакой.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2013, 15:59

Вывести на экран в строку элементов массива, стоящих на нечетных местах
составтье программу которая запрашивает значения элементов одномерного...

Подсчитать количество положительных элементов массива, стоящих на нечетных местах
Задачи на одномерные массивы 5 В одномерном числовом массиве размерности n...

Найти произведение элементов массива, стоящих на нечетных местах, и вывести положительные элементы массива.
Задать массив генератором случайных чисел в диапазоне.Найти произведение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru