1.2бита,50 байтов, 512битов, 500байтов,0.5килобайт 2 а) , вроде так остальное ваще хз
<span>текст "информатика 8 класс" занимает 18 байт.</span>
//PascalABC.NET 3.2 сборка 1318
Var
ar:array of integer;
i,n,min,k:integer;
begin
readln(n);
setlength(ar,n);
min:=integer.MaxValue;
for i:=0 to n-1 do
begin
readln(ar[i]);
if min>ar[i] then min:=ar[i];
end;
for i:=0 to n-1 do
if ar[i]=min then inc(k);
writeln(k);
end.
Пример ввода:
3
1
2
1
Пример вывода:
2