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

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

06.06.2015, 21:23. Просмотров 549. Ответов 1
Метки нет (Все метки)

ЗАДАНИЕ: СОСТАВЬТЕ ПРОГРАММУ ПОДСЧЕТА ЧИСЛА РАЗЛИЧНЫХ ЭЛЕМЕНТОВ ОДНОМЕРНОГО МАССИВА A(I), НЕ ПРИНАДЛЕЖАЩИХ ОТРЕЗКУ [R,P].

надо немного дописать код, но я не пойму как???????
моя программа считает количество ВСЕХ элементов, не входящих в отрезок. Как сделать так, чтобы считал только РАЗЛИЧНЫЕ? СПАСИБО!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a:array [0..100] of real;
n,r,p,i:integer;
c:real;
begin
writeln ('введите размер массива');
readln (n); randomize;
for i:=1 to n do begin
a[i]:=random(30);
write(a[i],' '); end;
writeln;
writeln ('введите от');
Readln(R);
writeln ('введите до');
readln(P);
C:=0;
for i:=1 to n do begin
if (a[i]<R) or (a[i]>P) then c:=c+1; end;
if c=0 then writeln('Нет таких чисел') else writeln(c);
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2015, 21:23
Ответы с готовыми решениями:

Получить количество отрицательных элементов массива и произведение элементов, принадлежащих отрезку [с,б]
Паскаль АВС. дан массив действительных чисел а1........Ан. Получить количество отрицательных...

Найти наименьший из элементов массива, принадлежащих отрезку [a, b]
Здравствуйте! Такая вот задача: Составить программу, позволяющую в одномерном массиве, состоящем из...

Найти сумму элементов массива, не принадлежащих отрезку
одномерные массивы: 1) В массиве чисел А1, А2, …, An найти сумму элементов, не принадлежащих...

Найти количество элементов матрицы, принадлежащих отрезку [5; 7]
В вещественной матрице B(n*m) найти количество элементов, принадлежащих отрезку

Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных пяти.
Помогите пожалуйста написать прогу в паскале: задать случайным образом одномерный массив из 18...

1
Puporev
Модератор
58591 / 44486 / 30716
Регистрация: 18.05.2008
Сообщений: 106,580
07.06.2015, 10:21 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
35
36
37
38
39
40
41
42
43
44
uses crt;
var a,b:array [1..100] of integer;
    n,r,p,i,c,j,k:integer;
begin
writeln ('введите размер массива');
readln (n);
randomize;
for i:=1 to n do
 begin
  a[i]:=random(30);
  write(a[i]:4);
 end;
writeln;
writeln ('введите от');
Readln(R);
writeln ('введите до');
readln(P);
C:=0;
for i:=1 to n do
 begin
  if (a[i]<R) or (a[i]>P) then
   begin
    if c=0 then
     begin
      c:=c+1;
      b[c]:=a[i];
     end
    else
     begin
      j:=1;
      k:=0;
      while (j<=c)and(k=0) do
      if a[i]=b[j]then k:=1
      else j:=j+1;
      if k=0 then
       begin
        c:=c+1;
        b[c]:=a[i];
       end;
      end;
    end;
 end;
if c=0 then writeln('Нет таких чисел') else writeln(c);
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.06.2015, 10:21

Найти количество чисел, не принадлежащих отрезку
Дана последовательность из N чисел: а (1), а (2), а (3), ...., а (N). Найти количество чисел не...

Найти сумму элементов одномерного массива, принадлежащих заданному диапазону индексов.
Имеется массив А из N произвольных чисел (A(N)), среди которых есть положительные, отрицательные и...

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


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

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

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