const d = 31;
var
a: array[1..d] of integer;
i, count, mdl: integer;
begin
for i := 1 to d do begin
a[i] := random(31);
write(a[i], ' ');
mdl := mdl + a[i];
end;
writeln;
writeln('Средняя температура: ', (mdl / d):0:2);
for i := 1 to d do
if(a[i] > mdl / d) then inc(count);
writeln('Дни, в которые температура была выше средней: ', count);
end.
Word; Real; Boolean; Boolean; ShortInt; ShortInt; Real; Real
1. 0,25
2. 26214,4
3. 9830,4
4. 65536
5. 131072
6. 8192
7. 3
8. 0,0625
9. 262144
10. 491,52
11. 286,72
12. 15
Ответ :
в ) отделяет один раздел програми от другого...
Можно сказать точно, если изображение без сжатия (типа bmp)
На один пиксел приходилось 9 бит, теперь требуется 3, следовательно в 3 раза