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.
1,3711*10^2
Объяснение: