Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
akeko
0 / 0 / 0
Регистрация: 30.10.2012
Сообщений: 33
1

Подсчет количества различных элементов одномерного массива не принадлежащих отрезку [R,P]

09.04.2013, 18:20. Просмотров 1091. Ответов 2
Метки нет (Все метки)

помогите пожалуйста задачку решить
Составить программу подсчета количества различных элементов одномерного массива не принадлежащих отрезку [R,P].
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.04.2013, 18:20
Ответы с готовыми решениями:

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

Подсчет числа различных положительных элементов одномерного массива
составьте программу подсчета числа различных положительных элементов одномерного массива A(Q)

Подсчет количества нулевых элементов одномерного массива
Доброе утро, кто может помочь(горит) программа, которая вычисляет сумму из количеств нулевых...

Подсчет количества отрицательных элементов одномерного массива вещественных чисел
вот мой вариант но что-то не работает помогите плиз program zadacha4; uses crt; type ...

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

2
Grizzz
4 / 4 / 9
Регистрация: 04.11.2012
Сообщений: 48
09.04.2013, 20:25 2
Лучший ответ Сообщение было отмечено akeko как решение

Решение

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
var a:array [1..10] of integer;
    i,j,kol,r,p:integer;
begin
writeln('Vvedite R');
readln(r);
writeln('Vvedite P');
readln(p);
writeln('zapolnite massiv');
 for i:=1 to 10 do
     begin
          write('Vvedite element ');
          readln(a[i]);
     end;
 writeln('Imeushiisya massiv');
 for i:=1 to  10 do
     write(a[i],' ');
 kol:=0;
 for i:=1 to 10 do
 if i<>10 then
    begin
     if a[i]<>a[i+1] then
        if (a[i]>=r) and (a[i]<=p) then inc(kol);
    end
    else
    if a[i]<>a[i-1] then
       if (a[i]>=r) and (a[i]<=p) then inc(kol);
 writeln;
 writeln('Kol-vo razlichnih elentov prinadlezhachoh otrezky (R,P)= ',kol);
 
readln;
end.
0
Ded_Vasilij
232 / 214 / 63
Регистрация: 01.09.2012
Сообщений: 2,103
09.04.2013, 20:38 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
i,R,P,n,count : integer;
a:array[1..n] of integer;
begin
count:=0;
for i:=1 to n do
begin
    if (a[i] < R) or (a[i] > P) then inc(count);
end;
writeln(count);
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2013, 20:38

Найти число элементов массива, принадлежащих отрезку [1;-5]
Ребята прошу прошения. Но мне опять нужна ваша помощь . Я очень признательна тем людям которые...

Найти произведение элементов массива, не принадлежащих отрезку [0; -5]
Найти число элементов массива, принадлежащих отрезку .массив состоит из 12 элементов.

Вычислить наименьший из элементов массива, принадлежащих отрезку
Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов,...


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

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

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