Решите : 1) введите элементы массива а[1..10] с клавиатуры и вычислите количество элементов с четными положительными значениями. 2) составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, значения которых больше 5 и меньше 15. заранее за решение.

1. т.к. все шары разные вероятность того, что вытащат   любой из них равна одной восьмой. получается, что ровно 3 бита информации несет сообщение, о том что достали красный шар.

2. 512 символов: 16 символичный алфавит=32 бита = 4 байта 

512x4=2048 бит

2048 бит = 256 байт

256 байт = 0,25 кбайта

5.(1: 16)*1024*1024*8: 4=131072 символов

4.1/25 мб = 1/25*220*23 = 218 бит это 1/32 мб в битах

218/8 = 218/23 = 215 = 32768 символов.

6. 1/29м6 = 1: 29*220*23 = 214 бит это 1/512 мбайта в битах

найдем объем 1 символа   214/2048 = 214/211 = 23 = 8 бит, отсюда получаем что 

28 = 256 символов

 

 

 

unit unit1;

interface

uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls,math, extctrls;

type tform1 = class(tform) button1: tbutton; image1: timage; procedure button1click(sender: tobject); procedure image1click(sender: tobject); private { private declarations } public { public declarations } end;

var form1: tform1;

implementation

{$r *.dfm}

procedure tform1.button1click(sender: tobject); vara,x,y,r: integer; begin randomize; image1.picture : = nil; image1.canvas.brush.color: =clblack; image1.canvas.rectangle (0,0,image1.width,image1.height); image1.canvas.brush.color: =clwhite;

for a: =1 to randomrange(9,20) do begin x: =randomrange(50,1000); r: =randomrange(1,15); y: =randomrange(50,550); image1.canvas.ellipse(x-r,y-r,x+r,y+r); end;

end; procedure tform1.image1click(sender: tobject); begin

end;

end.

 

 

на форме image и кнопка

(если тебе нужна просто программа(как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты : (   )