Условие задачи : В одномерном массиве, состоящем из N вещественных элементов, вычислите количество элементов массива, меньших C (Язык Pascal)
Сложность : легкая .
Решение задачи :
Для начала продумаем наше решение. Введем длину массива и число C. В цикле мы будем вводить число в ручную, и затем сравниваем его с числом С, и если число введенное пользователем меньше C, то мы увеличиваем кол-во чисел которые меньше C на 1.
Для того чтобы вычислить количество элементов массива, меньших C нам понадобятся следующие переменные :
- Переменная i — для цикла
- Переменная n — для количества чисел в массиве
- Переменная count — для количества чисел которые меньше C
- Переменная C — ограничение чисел
- Переменная 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.
