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

Question

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

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

Comments

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

---

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

---

Случайно

---

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

---

ок, 10 мин

Answer 1

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.
       

---

Comments

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