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

Посчитать сумму заданных элементов массива

07.01.2016, 15:07. Просмотров 830. Ответов 1
Метки нет (Все метки)

Дан целочисленный массив размера n x m и два числа a и b. Посчитать сумму элементов массива, принадлежащих отрезку [a,b].
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2016, 15:07
Ответы с готовыми решениями:

Найдите сумму заданных элементов массива
4.Дан целочисленный массив . Найдите сумму элементов массива с k1-го по k2-ой...

Посчитать знакопеременную сумму элементов заданного массива
Дан массив a из n элементов. Требуется посчитать знакопеременную сумму этого...

Посчитать сумму элементов массива до 100 элемента
найти номер элемента массива равный 100 и посчитать сумму элементов до 100...

Посчитать сумму всех повторяющихся элементов одномерного массива
посчитать сумму всех повторяющихся элементов одномерного массива

Посчитать значение максимума, минимума, сумму и среднее арифметическое элементов массива
Распечатать массив из 10-ти случайных элементов в диапозоне от -100 до 100 по...

1
1agaka1
25 / 25 / 38
Регистрация: 21.10.2013
Сообщений: 79
07.01.2016, 18:35 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
33
34
var
mas:array[1..1000,1..1000] of integer;
i,j,s,a,b,n,m:integer;
begin
writeln('Введите n');
readln(n);
writeln('Введите m');
readln(m);
for i:=1 to n do 
 for j:=1 to m do 
  begin
   mas[i,j]:=random(10);
   end;
   for i:=1 to n do 
   begin
     for j:=1 to m do 
      begin
      write(mas[i,j]:3);
      end;
      writeln;
    end;
    writeln('Введите а');
    readln(a);
    writeln('Введите b');
    readln(b);
    s:=0;
     if a<b then
      begin 
       for i:=1 to n do
        for j:=1 to n do
         if (mas[i,j]>=a) and (mas[i,j]<=b) then s :=s+mas[i,j];
          writeln('Сумма элементов = ',s);
          end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.01.2016, 18:35

Найти сумму элементов массива R, а так же сумму корней элементов массива R
дан произвольный массив R размерностью n. найти сумму элементов массива R, а...

Посчитать сумму элементов массива
вообщем нада программа, которая считает сумму элементов массива принадлежащему...

Посчитать сумму элементов массива по mod
Посчитать сумму элементов массива по mod 104


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

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

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