Главное меню  

   

Авторизация  

   
   
Хостинг в Украине
   


50.6%Russian Federation Russian Federation
22.9%Ukraine Ukraine
15%United States United States
2%Belarus Belarus
1.5%Czech Republic Czech Republic
1.2%Romania Romania
0.9%Kazakhstan Kazakhstan
0.9%France France
0.8%Kuwait Kuwait
0.6%United Kingdom United Kingdom

Сегодня: 11
Вчера: 197
На этой неделе: 1532
На прошлой неделе: 2191
В этом месяце: 7029
В прошлом месяце: 7374
Всего: 24838


   

Учитель информатики Бамбуркин С.П.

Записи

  • Главная
    Главная Страница отображения всех блогов сайта
  • Категории
    Категории Страница отображения списка категорий системы блогов сайта.

Нахождение количества элементов в массиве, удовлетворяющих заданному условию. Паскаль ABC

Добавлено : Дата: в разделе: Прикладная информатика

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

Введем обозначения: n – количество элементов в массиве; X – имя массива; i – индекс элемента массива; Xi – i-й элемент массива X; А – заданное число; k – количество элементов, значения которых положительны и не превосходят заданного числа А.

Входные данные: n, X, A.

Выходные данные: k.

Вводим с клавиатуры значение числа А. Количество элементов, значения которых положительны и не превосходят заданного числа А, вначале полагаем равным нулю, то есть k:=0. Если очередной элемент массива положителен и не превосходят заданного числа A, то количество таких элементов нужно увеличить на единицу, то есть k:=k + 1. Таким образом, обрабатываются все элементы массива.

При решении этой задачи можно использовать любой из видов циклов. Рассмотрим несколько вариантов решения задачи.

Первый способ.  Для решения используется цикл с параметром:

Program massiv_1;
Var X: Array[1..20] Of Integer;
i, n, k, A: Integer;
Begin
Write (‘n=’); Readln (n);
For i:=1 To n Do Readln (X[i]); //ввод массива
Write (‘A=’); Readln (A); k:= 0;
For i:=1 To n Do //обработка массива
If (X[i] >0) and (X[i] <= A) Then
k:=k + 1;
Writeln (‘k=’, k);
End.

Второй способ. Для решения используется цикл с постусловием:

Program massiv_1_2;
Var X: Array[1..20] Of Integer;
i, n, k, A: Integer;
Begin
Write (‘n=’); Readln (n); i:=1;
Repeat
Read (X[i]); i := i + 1
Until i > n;
Write (‘A=’); Readln (A); k:= 0; i:=1;
Repeat
If (X[i] >0) and (X[i] <= A) Then
k:=k + 1; i := i + 1
Until I > n;
Writeln (‘k=’, k);
End.

Редактировалось Дата:

Комментарии   

 
0 # Frieda 11.12.2017 09:29
free online casino games
free online
casino games: http://slotsmegacasino.com/
casino slots
casino online: http://slotsmegacasino.com/
Ответить
 
 
0 # Willie 17.12.2017 12:12
Mylab Field will do this, subsequently. MYLAB BOX, INC.


My webpage :: [url=http:///javascript:location.href='gul.ly/-/?url=http://inclusivenews.org/user/MandySchurr277/]mylab box reviews
Ответить
 
 
0 # Elliot 19.12.2017 19:52
fast quick loans online
payday loans no credit check: http://loansmart24.com/
quick loan
loans online instant: http://loansmart24.com/
Ответить
 
 
0 # Mary 20.12.2017 06:06
online loans direct lenders
loans online application: http://loansmart24.com/
loans online instant approval
online payday loans tx: http://loansmart24.com/
Ответить
 
 
0 # Katja 27.12.2017 11:53
payday loans online no credit check
loans online: http://loansmart24.com/
online loans direct lenders
payday loans online no credit check: http://loansmart24.com/
Ответить
 
 
0 # Lauri 02.01.2018 15:37
loans online bad credit
payday loans online: http://loansmart24.com/
payday loans
loans online no credit check: http://loansmart24.com/
Ответить
 
 
0 # Bonnie 09.01.2018 05:49
Many payday lenders do not run a credit verify.

my website; payday loans Zimbabwe: https://www.edocr.com/v/wqk7rzb0/pixmarketing/What-can-I-buy-for-a-payday-loan
Ответить
 
 
0 # Melody 12.01.2018 09:00
casino online free
casino games
for free: http://slotsmegacasino.com/
casino online for fun
online gambling sites for real money: http://slotsmegacasino.com/
Ответить
 
 
0 # Jonathon 13.01.2018 01:39
payday loans las vegas
loans online application: http://loansmart24.com/
loans online instant approval
best online loans instant approval: http://loansmart24.com/
Ответить
 
 
0 # Ina 19.01.2018 06:03
casinos in michigan with hotels
triple diamond slots 5x: http://bablcasinogames.com/
free slots no download no registration
heart of vegas free slots: http://bablcasinogames.com/
free triple 777 slot games
Ответить
 
 
0 # Jestine 29.01.2018 16:59
I have checked your website and i've found some duplicate content,
that's why you don't rank high in google, but there is a tool that can help you to create 100% unique content, search for: Boorfe's tips unlimited content

Here is my page :: RositaSmall: https://Brianna21.jimdo.com
Ответить
 
 
0 # Esteban 31.01.2018 08:27
biggest no deposit welcome bonus
casino online: http://casinousaonlinelist.com/
casino online usa
casino
online subtitrat: http://casinousaonlinelist.com/
Ответить
 
 
0 # Blythe 04.02.2018 07:54
weight loss programs
best diet pills review: http://topbestdietsusa.com/
weight loss pills phentermine
best diet pills 2018: http://topbestdietsusa.com/
Ответить
 
 
0 # Xiomara 04.02.2018 15:20
best diet pills for women
weight loss pills that
work: http://topbestdietsusa.com/
weight loss plans
diet pills: http://topbestdietsusa.com/
Ответить
 
 
0 # Torri 15.02.2018 08:48
cheap auto insurance quotes online
car insurance quotes: https://easycarup.com/
car insurance quotes comparison online
auto insurance quotes comparison online: https://easycarup.com/
Ответить
 
 
0 # Addie 18.02.2018 11:13
auto insurance quotes for individuals
auto insurance: https://advanceinsur.com/
cheap auto insurance online
cheap car insurance quotes california: https://advanceinsur.com/
Ответить
 
 
0 # Wallace 20.02.2018 07:08
pogo casino slots
casino g: http://slotsmegacasino.com/
top rated free online casino games
play casinos: http://slotsmegacasino.com/
Ответить
 
 
0 # Markus 22.02.2018 01:00
cheap auto insurance
cheap car insurance quotes: http://auto24insurance24online.com/
auto insurance quotes online
auto insurance quotes comparison online: http://auto24insurance24online.com/
Ответить
 

Добавить комментарий


Защитный код
Обновить

   
© 2012 fordus.