uses crt;
var i,min,s:integer;
a:array[1..60] of integer;
begin
s:=0;
for i:=1 to 60 do a[i]:=random(35)+1;
min:=a[1];
for i:=1 to 60 do if min > a[i] then min:=a[i];
for i:=1 to 60 do if a[i] = min then inc(s);
writeln(s,' books for price = ',min,' ru.');
end.
COUNTRY:
USA : RUSSIA:
INFO : ;washington.txt INFO:
culture.txt industry.txt ; culture.txt
1) В 1 кбайте 1024 байт
1024:1024=1
1 кбайт
2) В 1 байте 8 битов
128:8=16
16 байт
3) В 1 кбайте 8192 битов
0,5*8192=4096
4096 битов
4) В 1 мбайте 1000000 байт
1280:1000000=0,00128 мбайт
0,00128 мбайт