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

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

14.06.2011, 10:07. Просмотров 847. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2011, 10:07
Ответы с готовыми решениями:

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

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

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

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

1
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.06.2011, 22:10

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Подсчитать в матрице А количество элементов, индекс которых принадлежит заданному интервалу
Здравствуйте! Не могли бы вы мне помочь с такой задачей: Написать программный модуль, который ...

Найти элемент массива, значение которого принадлежит интервалу от 2 до 5
Дан одномерный массив а(n), в котором находится единственный элемент ,значение которого принадлежит...

Определить количество элементов матрицы, значение каждого из которых равно 5
Определить кол-во элементов матрицы 25,40, значение каждого из которых = 5 Помогите пожалуйста,...

Определите функцию, аргументами которой являются три числа и которая возвращает значение True если первое число принадлежит интервалу
Определите функцию, аргументами которой являются три числа и которая возвращает значение True если...


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

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

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