Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
tanyhaftv
83 / 3 / 4
Регистрация: 09.03.2010
Сообщений: 195
#1

Определить число элементов массива, значение каждого из которых принадлежит интервалу -20 ..+20 - Delphi

14.06.2011, 10:07. Просмотров 619. Ответов 1
Метки нет (Все метки)

Задан одномерный целый массив A, количество элементов которого не определено, но указан конец данных с помощью знака /*. Определить число элементов массива, значение каждого из которых принадлежит интервалу -20 ..+20.

---
Mawrat: tanyhaftv, как я понимаю, массив описан так:
Delphi
1
2
const N := ...;
var Arr : array[1..N] of String;
Или так:
Delphi
1
var Arr : array of String;
Элементы массива содержат строковые представления целых чисел. Элемент со значением '/*' обозначает конец набора. Надо определить количество элементов, которым соответствуют целые числа из диапазона: -20..+20.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2011, 10:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить число элементов массива, значение каждого из которых принадлежит интервалу -20 ..+20 (Delphi):

Определить количество тех элементов массива, значения которых меньше среднего арифметического элементов массива
Помогите составить программу Массив содержит 8 действительных чисел....

Определите сумму элементов, значение которых больше среднего арифметического элементов массива
Организуйте массив, содержащий 10 различных целых чи-сел. После этого...

Определите сумму элементов, значение которых больше среднего арифметического элементов массива
2)Организуйте массив, содержащий 10 различных целых чисел. После этого...

Найти сумму и число элементов каждого столбца двухмерного массива удовлетворяющих условиям
Найти сумму и число элементов каждого столбца двумерного массива...

Посчитать количество элементов, значение которых принадлежит интервалу [-10 , +3 ]
Дан массив M ={ }, i=1,10; j=1,10 ] (элементы выбираются случайным...

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

1
JIomaka
29 / 29 / 24
Регистрация: 22.12.2010
Сообщений: 54
14.06.2011, 22:10 #2
Наверно так.
Delphi
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
program lab;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  N = 10;
 
var
  Arr: array [1 .. N] of String;
  i, j, k: Integer;
 
begin
  k := 0;
  writeln('Zapolnite massiv:');
  for i := 1 to N do
  begin
    readln(Arr[i]);
    if Arr[i] = '/*' then
      break;
  end;
  writeln;
  for j := 1 to i - 1 do
    if (StrToInt(Arr[j]) >= -20) and (StrToInt(Arr[j]) <= 20) then
      inc(k);
  writeln(k);
  readln;
 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2011, 22:10
Привет! Вот еще темы с решениями:

Вывести порядковый номер последнего из элементов массива значение которого принадлежит заданному интервалу
Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из...

Найти среднее арифметическое тех чисел значение которых принадлежит интервалу
дано N действительных чисел .Найти среднее арифметическое тех чисел значение...

Определить принадлежит ли заданное число, интервалу (-10 ; 7)
Определить принадлежит ли заданное число, интервалу (-10 ; 7) Прошу помочь с...

Определить, принадлежит ли введённое целое число a интервалу от 0 до 50?
составить программу которая определяет принадлежит ли введённое целое число a...


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

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

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