Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Takedo2010
0 / 0 / 0
Регистрация: 10.10.2013
Сообщений: 15
#1

Дан одномерный массив AN. Найдите количество и сумму элементов, индексы которых лежат в интервале - Turbo Pascal

28.10.2013, 02:01. Просмотров 751. Ответов 2
Метки нет (Все метки)

Пожалуйста помогите!))
(Паскаль) Дан одномерный массив AN. Найдите количество и сумму элементов, индексы которых лежат в интервале [ab]
http://www.cyberforum.ru/pascal/thread79164.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2013, 02:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дан одномерный массив AN. Найдите количество и сумму элементов, индексы которых лежат в интервале (Turbo Pascal):

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

Дан одномерный массив, который содержит не более 50 целых чисел. Найти сумму элементов, у которых последняя цифра больше данного числа Х
Дан одномерный массив, который содержит не более 50 целых чисел. Найти сумму...

Дан одномерный массив натуральных чисел.Определить сумму элементов массива,сумма цифр которых кратна 3.Все вспомогательные алгоритмы оформить в отдель
Дан одномерный массив натуральных чисел.Определить сумму элементов...

Одномерный массив. Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5
Дан массив X(N). Найти произведение 3-х элементов, значение которых. заключены...

Дан массив а, состоящий из n элементов. Найдите сумму a1 + 2!a2 + 3!a3 + … + n!an
Помогите! Дан массив а, состоящий из n элементов. Найдите сумму a1 + 2!a2 +...

2
ildwine
Супер-модератор
2978 / 1853 / 1223
Регистрация: 04.03.2013
Сообщений: 4,557
Записей в блоге: 1
28.10.2013, 07:31 #2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

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
28
29
30
31
32
var
  m : array[1..100] of integer;
  n, i, k : byte;
  a, b, s : integer;
begin
  k := 0;
  s := 0;
  randomize;
  repeat
    write('введите n: ');
    readln(n)
  until (n > 0) and (n <= 100);
  writeln('исходный массив:');
  for i := 1 to n do
  begin
    m[i] := random(50) - 25;
    write(m[i]:4)
  end;
  writeln;
  repeat
    write('введите a и b:');
    readln(a, b)
  until (a >= 1) and (a <= n) and (b >= a) and (b <= n);
  for i := a to b do
  begin
    inc(k);
    s := s + m[i]
  end;
  writeln('сумма = ', s);
  writeln('количество = ', k);  
  readln
end.
1
Takedo2010
0 / 0 / 0
Регистрация: 10.10.2013
Сообщений: 15
28.10.2013, 14:07  [ТС] #3
огромное человеческое спасибо)))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 14:07
Привет! Вот еще темы с решениями:

Дан массив А(5). найдите сумму и колличество положительных элементов
Дан массив А(5). найдите сумму и колличество положительных элементов. Как это...

Дан целочисленный массив с количеством элементов N. Вывести те его элементы, индексы которых являются степенями двойки. (2,4,8,16,…).
Дан целочисленный массив с количеством элементов N. Вывести те его элементы,...

Дан одномерный массив, найти 5 соседних элементов, сумма которых максимальна
дан одномерный массив, найти 5 соседних элементов сумма которых максимальна

Дан одномерный массив А из 22 элементов. Найти сумму
помогите пожалуйста. Дан одномерный массив А из 22 элементов. Найти сумму...


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

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

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