Главное меню  

   

Авторизация  

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


52.1%Russian Federation Russian Federation
21.1%Ukraine Ukraine
16%United States United States
1.9%Belarus Belarus
1.2%Romania Romania
1.1%United Kingdom United Kingdom
0.9%Czech Republic Czech Republic
0.9%Kazakhstan Kazakhstan
0.6%Kuwait Kuwait
0.6%Republic Of Moldova Republic Of Moldova

Сегодня: 8
Вчера: 311
На этой неделе: 619
На прошлой неделе: 1872
В этом месяце: 3246
В прошлом месяце: 8478
Всего: 25455


   

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

Записи

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

Нахождение количества элементов в массиве, удовлетворяющих заданному условию. Паскаль 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/
Ответить
 

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


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

   
© 2012 fordus.