Если я правильно понял условие(Вывести сколько раз в массиве встречается число введенное с клавиатуры), то
for i:=m to n do
if a[i]=x then k:=k+1;
write(k);
П.с. если условие такое как я понял, то переменная USL вообще не нужна.
<span>Ответ:В режиме истинного цвета: 6000,
При кодировании с палитрой 256 цветов- 2000,
При кодировании с палитрой 16 цветов- 1000,
В черно-белом варианте 250</span>
Для пк - мало, да и для других девайсов - мало, приходится все время подчищать память
для пк норм - 500гб, минимум
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:= readlnInteger('n =');
var a:= ReadlnString.ToIntegers;
SetLength(a, n);
var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count;
Writeln(k);
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