Помогите пожалуйста,нужно нарисовать блок схему этой программы: 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 произвольных чисел.Определить сумму чисел которая >20 но <80
Помогите с информатикой! Написать программу в Паскале Заполнить массив 100 произвольных
Помогите пожалуйста с инфой! Нужно сделать так, чтоб круг был не закрашен, либо как то вырезать эту 1/4 круга. Сорян за качество фото
Помогите пожалуйста с инфой! Нужно сделать так, чтоб круг был не закрашен, либо как то вырезать эту
Дано пятизначное число. Получить число, образованное при перестановке цифр исходного числа слева направо.
Дано пятизначное число. Получить число, образованное при перестановке цифр исходного числа слева
какой объем ( в битах)в памяти компьютера будет занимать графический файл если размер рисунка 30 на 20 и впалитре 8 цветов
какой объем в битахв памяти компьютера будет занимать графический файл если размер рисунка 30 на 20