5. Устоновите верное соответствие определений «Компоненты»
изменить стиль образа создаваемого
объекта и изменить расцветку по своему
усмотрению
«Стили»
Некоторая часть окружающего мира и
упрощенное представление об объекте
«Объект и Модель»
можно встраивать готовые объекты в
программу. Используя строку Поиск,
можно скопировать готовые эскизы 2D-
или 3D-моделей из сети Интернет.​

512 бит = 512/8= 64 байт

1073741824 байт =1073741824/1024=1048576 Кбайт / 1024= 1024 Мбайт

1024 Кбайт = 1024*1024=1048576 байт

4

Дискета 3,5 = 720 Кбайт

СD= 650 Мбайт

DVD= 1,4 Гбайт- 17,08Гбайт

Жесткий диск = до 5 Тбайт (Терабайт)

5

30 Кбайт= 30*1024 = 30720 байт

125 Кбайт  =  125* 1024 =128000 байт

1024 Кбайт = 1024* 1024 = 1048576 байт

71 Кбайт = 71 * 1024 = 72704 байт

13 Гбайт = 13*1024=13312Мбайт=13312*1024=13631488Кбай= 13631488 * 1024 = 13958643712байт

9216 байт = 9216/1024 = 9 Кбайт

32 Гбайт = 32*1024*1024=33554432 Кбайт

769Мбайт = 769*1024 = 787456 Кбайт

512 байт = 512 /1024 = 0,5 Кбайт

70254592 байт = 70254592/1024/1024=67 Мбайт

42 Гбайт = 42*1024= 43008 Мбайт

20482 Кбайт = 20482/1024 = 20Мбайт

2 Гбайт =2*1024=2048 Мбайт 

Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
  begin
    readln(a[i]);
    //если ввели положительное число,увеличим перем. otr на 1
    if a[i] < 0 then
      inc(otr);
    //если ввели отрицательное число,увеличим перем. k на 1
    //и к переменной m прибавим элемент
    if a[i] > 0 then
      begin
        inc(k);
        inc(m, a[i]);
      end;
  end;
//заполним массив d
for i:=1 to l do
  //если индекс четный, присвоим элементу otr
  //иначе присвоим среднее арифметическое
  if i mod 2 = 0 then
    d[i] := otr
  else
    d[i] := m/k;
end.