1 проверяем на наличии неисправностей2 Если все исправно производим запуск 3 ждем не менее 5 минут
Begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var m:=a.Where(x->x<a.Max).Max;
writeln('Второй максимум = ',m);
end.
Пример:
Введите 10 чисел:
5
44
80
1
8
100
1
90
2
6
Второй максимум = 90
<span><span>program nazvanie;
</span><span>var a,b,b1,k,k1:integer;
</span>begin<span>
write('Введите трехзначное число: ');</span><span>
readln(a);</span><span>
b:=a;</span><span>
while b<>0 do</span><span> begin</span><span> b1:=b mod 10;</span><span>
if b1 mod 2=0</span><span> then</span><span> k:=k+1</span><span> else</span><span> k1:=k1+1;</span><span>
b1:=b div 10;</span><span>
b:=b1;</span><span>
end;</span><span>
if k>k1</span><span> then</span><span>
write('Кол-во четных цифр больше, чем нечетных в числе ',a)
</span><span>else if k<k1</span><span> then</span><span> write('Кол-во нечетных больше, чем четаных в числе ',a);
</span><span>end.
Немного переделать и будет рабочая прога!</span></span>
Ответ:
1
Объяснение:
Остальное неверно. Некоторое неверно в принципе, некоторое может быть верным в частных случаях. Например, если текст планируется распознавать, разрешение должно быть максимально возможным. Если текст местами загрязнен, сканировать надо в цвете - так будет проще потом убрать лишнее.