//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
begin
var a:=ReadArrInteger('Введите элементы массива->',ReadInteger('Введите размер массива->'));
Println('Количество минимальных->',a.Where(t->t=a.min).Count);
end.
Пример:
Введите размер массива-> 10
Введите элементы массива-> 1 2 3 4 5 6 7 1 1 1
Количество минимальных-> 4
1 - проверь драва на видеокарту
2 - попробуй совместимость поставить
3 - если дрова нвидиа то попробуй по изменять настройки видеокарты (поставить на макс производительность)
4 - попробуй почистить реестр, с помошью CCLEANER
5 - попробуй скачать<span> MSI Afterburner и разогнать видюху</span>
6 - попробуй снести антивирус
7 - попробуй в биосе поставить макс производительность
8 - попробуй загуглить
1)вредность компьютера влияет на ухутшение памяти,зрения и т.д
2)если человек много будет сидеть за компьтером особенно если много играть в него то человек может представлять что весь мир это игра. Начнёт убивать людей и например подумает что они смогут возрадиться но это не так
var i,k,j,s:integer;
begin
readln(k);
FOR I:=100 TO 300 DO
begin
s:=0;
for j:=1 to i do
if i mod j=0 then s:=s+j;
if s=k then writeln(i);
end;
end.