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

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

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

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

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

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

Случайно

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

ок, 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.



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

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

составить кроссворд на листе формата А4 по терминам из области информатики (не менее 20 терминов). На втором листе А4 представить ответы. Пожалуйста!
составить кроссворд на листе формата А4 по терминам из области информатики не менее 20 терминов. На
Помогите быстрее там вроде
Помогите быстрее там вроде
Помогите решить плиз !!
Помогите решить плиз !!