Teksts Kases izdevumu orderis ir izvietots tabulā. Tekstu aptverošās redzamās līnijas ir izslēgtas, bet tabulas struktūra saglabāta. Svītriņa pie Nr. ir veidota ar apakšsvītru. Darbā esošās garās līnijas ir veidotas ar tabulāciju. Trešā tabula ir jāizveido (jāpārzīmē līnijas), lai tā vizuāli līdzinātos uzdevumā esošajai. Teksts tabulā ir ne tikai jāieraksta, bet ir jāizpilda tur prasītais.
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.
Систе́мное програ́ммное обеспе́чение — комплекс программ, которые обеспечивают управление компонентами компьютерной системы, такими как процессор, оперативная память, устройства ввода-вывода, сетевое оборудование, выступая как «межслойный интерфейс», с одной стороны которого аппаратура, а с другой — приложения пользователя.
Антивирус выступает "межслойным интерфейсом" между железом и приложениями? Нет. Архиватор? Нет. Мультимедиа проигрыватели? Нет. ответ: Антивирусы, архиваторы, мультимедиа проигрыватели - прикладное ПО.
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.