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.
vladusha47713
03.11.2020
Систе́мное програ́ммное обеспе́чение — комплекс программ, которые обеспечивают управление компонентами компьютерной системы, такими как процессор, оперативная память, устройства ввода-вывода, сетевое оборудование, выступая как «межслойный интерфейс», с одной стороны которого аппаратура, а с другой — приложения пользователя.
Антивирус выступает "межслойным интерфейсом" между железом и приложениями? Нет. Архиватор? Нет. Мультимедиа проигрыватели? Нет. ответ: Антивирусы, архиваторы, мультимедиа проигрыватели - прикладное ПО.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сформировать и вывести на экран массив из 5 чисел в интервале от 1 до 10 определить сумму всех элементов
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.