Помогите пожалуйста,нужно нарисовать блок схему этой программы: Const max=24; var M:array[1..max] of integer; i,j,num:byte; X:integer; procedure readArray(); var ...

Хотите узнать готовый ответ на вопрос Помогите пожалуйста,нужно нарисовать блок схему этой программы: Const max=24; var M:array[1..max] of integer; i,j,num:byte; X:integer; procedure readArray(); var ... и правильно решить домашнее задание по предмету Информатика? Подробное решение смотрите ниже.

Помогите пожалуйста,нужно нарисовать блок схему этой программы:

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.



Помогите пожалуйста

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

Напишите программу которая выводит все четные элементы массива из массива заданного n. Числом
Напишите программу которая выводит все четные элементы массива из массива заданного n.
Пожалуйста помогите срочно и правельно
Пожалуйста помогите срочно и правельно
определите что будет выведено в результате выполнения следующей программы var n, s:integer; begin n:=0; s:=0; while s<=35 do begin n:=n+1; s:=s+4; end; write (n); end.
определите что будет выведено в результате выполнения следующей программы var n, sinteger begin n0