Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
ildwine
Супер-модератор
2980 / 1855 / 1224
Регистрация: 04.03.2013
Сообщений: 4,564
Записей в блоге: 1
28.10.2013, 07:31

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

28.10.2013, 07:31. Просмотров 759. Ответов 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.


Вернуться к обсуждению:
Дан одномерный массив AN. Найдите количество и сумму элементов, индексы которых лежат в интервале
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2013, 07:31
Готовые ответы и решения:

Дан одномерный массив. Найти сумму элементов, значения которых не превышают 20
Люди, помогите пожалуйста решить. срочно. 1)Дан одномерный массив. Все его...

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

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

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

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

2
Другие темы раздела
Turbo Pascal Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R http://www.cyberforum.ru/turbo-pascal/thread990013.html
Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R (R>0) с центром в начале координат
Turbo Pascal В одномерных массивах C и P максимальный элемент заменить количеством положительных чисел в массиве Плз напишите код программы вопрос жизни и смерти!! Буду безгранично благодарен :) Такое задание: В одномерных массивах C и P максимальный элемент заменить количеством положительных чисел в... http://www.cyberforum.ru/turbo-pascal/thread989983.html
Напечатать те числа, которые принадлежат интервалу Turbo Pascal
Даны три действительных числа. напечатать те из них, которые принадлежат интервалу(1,3). если таковых нет то вывести сообщение.
Вычислить значение выражения Turbo Pascal
Для заданого двумерного массива найти среднее арифметическое(я нашел его), среднее квадратное отклонение Б(это дельта) за формулами. + массив на картинке Вот формулы: \bar{x} =...
Turbo Pascal Заданно натуральное число N. Задача в Паскале http://www.cyberforum.ru/turbo-pascal/thread989944.html
Для заданного натурального числа N удалить из записи числа указанную цифру не изменив разрядность.
Turbo Pascal Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R (R>0) с центром в начале координат (цикл while.do) 1.Вычислить S - сумму квадратов всех целых чисел, попадающих в интервал ( lnX, e^X ), x>1. 2.Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R (R>0) с центром в... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru