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

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

14.06.2011, 10:07. Просмотров 641. Ответов 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
Ответы с готовыми решениями:

Определить количество тех элементов массива, значения которых меньше среднего арифметического элементов массива
Помогите составить программу Массив содержит 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 действительных чисел .Найти среднее арифметическое тех чисел значение...


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

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

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