Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
rubega
0 / 0 / 0
Регистрация: 24.01.2013
Сообщений: 3
1

Программа для подсчета количества элементов массива

29.01.2013, 17:31. Просмотров 2377. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста составить программу.
Задание: Составить программу подсчета количества элементов массива С, лежащих в интервале (a, b).
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.01.2013, 17:31
Ответы с готовыми решениями:

Программа для подсчета количества букв в строке!
Как на Турбо Паскале написать программу для подсчета всех русских букв используемых в написанной...

Программа для подсчета наибольшего количества повторения подряд числа!
Смысл задания: Пользователь задает число,например 8. Затем задает подряд 8 чисел(ну либо другое...

Составить программу подсчета количества элементов массива, совпадающих с минимальным элементом
ввести двумерный массив A(N,N). Составить программу подсчета количества элементов массива,...

Составить процедуру подсчета количества элементов массива A, значения которых лежат в пределах от p до q
составить процедуру подсчета кол-ва элементов одномерного массива A, значения которых лежат в...

Составить процедуру подсчета количества N элементов одномерного массива, значения которых больше числа Р
Составить процедуру подсчета количества N элементов одномерного массива, значения которых больше...

3
rab
0 / 0 / 3
Регистрация: 29.01.2013
Сообщений: 10
29.01.2013, 17:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
    c: array [1..10] of Integer;
    a,b,i,k: Integer;
begin
    randomize;
    for i := 1 to 10 do
        c[i] := random(100);
    readLn(a, b);
    k := 0;
    for i := 1 to 10 do
        if (c[i] > a) and (c[i] < b) then
            inc(k);
    writeLn(k);
    readLn; 
end.
0
rubega
0 / 0 / 0
Регистрация: 24.01.2013
Сообщений: 3
29.01.2013, 17:39  [ТС] 3
Спасибо огромное.
0
Дикутенз
91 / 91 / 99
Регистрация: 25.01.2013
Сообщений: 320
29.01.2013, 17:43 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Uses crt;
const n=30;
Type mas=array[1..n] of integer;
Var C:mas; a,b:integer; i,k:integer;
  Begin clrscr; randomize;
    for i:=1 to n do
      Begin
        c[i]:=Random(1000);
        Write(c[i]:4);
      End;
    WriteLn;
    Write('vvedite a=');
    ReadLn(a);
    Write('vvedite b=');
    ReadLn(b);
    k:=0;
    if a>b then Write('oshibka vvoda')
           else for i:=1 to n do
                    if (c[i]>a) and (c[i]<b) then inc(k);
    Write('k=',k);
    ReadLn;
  End.
0
29.01.2013, 17:43
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2013, 17:43

Составить программу для подсчета количества нечетных элементов в каждой строке матрицы
Помогите, пожалуйста, очень нужно. Вот задание: дана матрица D размером . составить программу для...

Программа подсчета числа различных положительных элементов массива
Условие: СП подсчета числа различных положительных элементов ОМ A(Q). var a:array of real;...

Составить подпрограмму подсчета количества L элементов массива, значения которых лежат в пределах от p до q
Составить подпрограмму подсчета количества L элементов одномерного массива A, L&lt;=m, значения...


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

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

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