Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Fisya
1 / 1 / 0
Регистрация: 27.09.2013
Сообщений: 26
#1

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

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

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

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

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

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

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

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

Сосчитать количество четных элементов массива, стоящих на нечетных местах. - Pascal ABC
Сосчитать количество четных элементов массива, стоящих на нечетных местах. В двух вариантах- с циклом while и с циклом repeat. a mod 2=0....

3
erl27
892 / 741 / 432
Регистрация: 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 / 432
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Вычислить сумму элементов, стоящих на чётных местах и произведение элементов, стоящих на нечётных местах - Pascal ABC
Для массива X(X1, X2......Xn), имеющего положительные и отрицательные элементы, вычислить сумму элементов, стоящих на чётных местах и...

Найти количество нулевых элементов массива, стоящих на четных и нечетных местах - Pascal ABC
Заполнить матрицу m*n с клавиатуры. Найти количество нулевых элементов массива, стоящих на четных и нечетных местах


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

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

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