Задачи по Pascal. В одномерном массиве, состоящем из N вещественных элементов, вычислите количество элементов массива, меньших C

Задачи по Pascal

Условие задачи : В одномерном массиве, состоящем из N вещественных элементов, вычислите количество элементов массива, меньших C (Язык Pascal)

Сложность : легкая .

Решение задачи :

Для начала продумаем наше решение. Введем длину массива и число C. В цикле мы будем вводить число в ручную, и затем сравниваем его с числом С, и если число введенное пользователем меньше C, то мы увеличиваем кол-во чисел которые меньше C на 1.

Для того чтобы вычислить количество элементов массива, меньших C нам понадобятся следующие переменные :

  1. Переменная i — для цикла
  2. Переменная n — для количества чисел в массиве
  3. Переменная count — для количества чисел которые меньше C
  4. Переменная C — ограничение чисел
  5. Переменная mass — для массива

Начнем мы с каркаса нашей программы :

uses crt;
type
    massiv = array [1..100] of real;

var
    i , n , count  : integer;
    mass : massiv;
    c : real;

begin
clrscr;

write('Введите кол-во элементов : '); readln(n);

write('Введите С : '); readln(c);
end.

Тут мы создали свой тип данных как и зачем читайте ( тут ), заметьте что тип у нас real , т.е числа с запятой, так сказано в условии.

Дальше мы объявили все переменные. И попросили пользователя ввести число элементов и число C.

Ну а дальше цикл :

for i:=1 to n do
    begin
        write('Введите число ',i, ' : '); readln(mass[i]);
        if mass[i] < c then
            count  := count + 1;
    end;

В цикле мы просим пользователя ввести число, он его вводит и сравниваем его с числом С, и если число введенное пользователем меньше C, то мы увеличиваем кол-во чисел которые меньше C на 1.

Ну и останется только вывести результат.

Всё решение задачи Pascal :

uses crt;

type
    massiv = array [1..100] of real;

var
    i , n , count  : integer;
    mass : massiv;
    c : real;

begin
clrscr;

write('Введите кол-во элементов : '); readln(n);

write('Введите С : '); readln(c);
count:= 0;
for i:=1 to n do
    begin
        write('Введите число ',i, ' : '); readln(mass[i]);
        if mass[i] < c then
            count  := count + 1;
    end;
writeln('Количество элементов меньше ', c:2:1 , ' равно : ', count);
readln;
end.

cyber
Оцените автора
CyberLesson | Быстро освоить программирование Pascal и C++. Решение задач Pascal и C++
Добавить комментарий