Помогите пожалуйста,нужно нарисовать блок схему этой программы: 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.



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

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

срочноооо даю 100 баллов
срочноооо даю 100 баллов
(Pascal ABC) Дано двузначное число.Найти среднее арифметическое(при помощи div и mod)
Pascal ABC Дано двузначное число.Найти среднее арифметическоепри помощи div и
Помогите пожалуйста разобраться.
Помогите пожалуйста разобраться.
Используя программу MS Excel, вычисли среднее арифметическое 7; 12; 148; 235 (при необходимости ответ округли до сотых)
Используя программу MS Excel, вычисли среднее арифметическое 7 12 148 235 при необходимости ответ