Условие задачи : В одномерном массиве, состоящем из 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.