Степень соответствия нанесенного оптическогосимвола предъявляемым к нему требованиям<span>, </span>например<span>, </span>к размерам<span>, </span>коэффициентам отражения<span>, </span>неровности границ<span>, </span>наличию пятен<span>, </span>пропусков и т.д<span>., </span>которые могут повлиять на эффективную работусканера<span>.</span>
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=ArrRandom(ReadInteger('n='),-50,50); c.Println;
var imax:=c.IndexMax;
c:=c?[:imax]+c?[imax+1:]; c.Println
end.
<u>Пример</u>
n= 15
-5 -23 44 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
-5 -23 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
Решение и результат выполнения на паскале смотри во вложении
program test;
var a, b, i: integer;
begin
write('Enter a, b: ');
readln(a, b);
for i:=a to b do
if i mod 2 = 0 then
write(i, ' ');
readln;
end.