Ответ:
1
Объяснение:
Подсчитаем количество цифр
от 1 по 99 по 20 каждая от 1 по 9
от 100 по 999 по 9·20+100=280 каждая от 1 по 9
от 1000 по 1999 по 10·20+100=300 каждая от 2 по 9 и 1000+10·20+100=1300 цифра 1
от 2000 по 2020 по 2 каждая от 3 по 9, 12 цифра 1 и 24 цифра 2
Тогда всего
1 - 1612
2- 624
от 3 по 9 - по 602
и их сумма
1·1612+2·624+602·(3+4+5+6+7+8+9)=28144
Сумма цифр 28144: 2+8+1+4+4=19
Сумма цифр 19: 1+9=10
Сумма цифр 10: 1+0=1
Program n1;
var a: array[1..10] of integer;
k,kol,i: integer;
begin
randomize;
write('k=');
readln(k);
kol:=0;
write('исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (a[i]<0) and (a[i]<k) then kol:=kol+1;
end;
writeln;
writeln('кол-во эл меньше ',k,': ',kol);
end.
Шаблон документа это примерный макет того что должно быть,например:
в pascal:
var
begin
end.
В текстовых документах это :
заголовок,
подзаголовок,
текст
Тоесть это макет,
23040000 бит
2,75 Мега байта
22500 Кило байта