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

Хотите узнать готовый ответ на вопрос Помогите пожалуйста с задачей по информатике. Найти количество элементов последовательности,модуль которых меньше указанного значения. и правильно решить домашнее задание по предмету Информатика? Подробное решение смотрите ниже.

Помогите пожалуйста с задачей по информатике.

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

последовательность это массив?

вводить с клавиатуры или задать случайно?

Случайно

Ошибся,ввод с клавиатуры

ок, 10 мин

Const max=24;
var M:array[1..max] of integer;
i,j,num:byte;
X:integer;

procedure readArray();
var i:byte;
begin
Write('Введите длину массива M');
Readln(num);
for i:=1 to num do begin
Write('M[',i,']=');
Readln(M[i]);
end;
Writeln();
end;

begin
readArray();

Writeln('Задача: Найти количество элементов, модуль которых меньше X');
Write('Введите X=');
Readln(X);

j:=0;
for i:=1 to num do
if Abs(M[i]) < X then
j:=j+1;

Writeln();
Writeln(j, ' элементов, модуль которых меньше ',X);
end.



Спасибо большое

Похожие ответы

Что такое дизъюнкция, инверсия, конъюкция? Каковы знаки для их записи и что они обозначают?
Что такое дизъюнкция, инверсия, конъюкция? Каковы знаки для их записи и что они
опишите тип данных в каждом из случаев: а)45 12 -96 23 5 8 -9 б)4.2 23.6 -25.3 -6.5 в) Петров Сидоров Иванов г)”P” “H” “5” «П» «_» е) True false
опишите тип данных в каждом из случаев а45 12 -96 23 5 8 -9 б4.2 23.6 -25.3 -6.5 в Петров Сидоров
Помогите, с 20 по 24.
Помогите, с 20 по 24.