1. сколько байт информации содержит сообщение объемом 2 в 8 степени бит? 2. сколько бит информации содержит сообщение объемом 4 гб?

3. сколько кбит информации содержит сообщение объемом 2 в 23 степени байт?

4. сколько байт информации содержит сообщение объемом 512 гбит?

5. сколько кбайт информации содержит сообщение объемом 2 в 21 степени бит?

6. сколько бит информации содержит сообщение объемом 8 гб?

7. сколько байт информации содержит сообщение объемом 2 в 10 степени бит?

8. сколько бит информации содержит сообщение объемом 16 мб?

begin
  var n:=readInteger('Число элементов массива-');
  var a:=ArrRandom(n,-50,50); a.Println;
  for var i:=1 to n-2 do a[i]:=2*(i+1);
  a.Println
end.

Пример
Число элементов массива- 10
-40 4 -49 0 -47 41 49 33 -31 -1
-40 4 6 8 10 12 14 16 18 -1

begin
  var n:=readInteger('Число элементов массива-');
  var a:=ArrRandom(n,-50,50); a.Println;
  var i1:=a.IndexMax;
  var i2:=a.IndexMin;
  Writeln(a[min(i1,i2)+1:max(i1,i2)].Where(x->x<0).Sum)
end.

Пример
Число элементов массива- 18
-45 -30 -49 -44 34 -5 -12 -28 22 14 -39 -20 -46 50 6 21 20 -47
-194

begin
  var a:=ReadlnString('Введите строку;').ToCharArray;
  // было сделано так только ради получения массива символов,
  // который на самом деле только мешает
  Writeln(a);
  if Pos('...',a.JoinIntoString)>0 then
    Writeln('Троеточие в массиве есть')
  else Writeln('Троеточия в массиве нет')
end.

Пример
Введите строку; 6ye$% DFDRT..drrtert...DFDGD
[6,y,e,$,%, ,D,F,D,R,T,.,.,d,r,r,t,e,r,t,.,.,.,D,F,D,G,D]
Троеточие в массиве есть

Const n=5; m=6;
var 
a:array[1..n,1..m] of integer;
i,j,max,imax,jmax,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,1]; imax:=1; jmax:=1;
for i:=1 to n do
 for j:=1 to m do
  if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end;
writeln('max = a[',imax,',',jmax,'] = ',max);
s:=0;
for i:=1 to imax-1 do
 for j:=1 to m do s:=s+a[i,j];
for j:=1 to jmax-1 do s:=s+a[imax,j];
writeln('s = ',s);
end.

Пример:
Исходный массив:
  75  39  34  25  29  87
  57  12  73  49  75  21
  48  99  16  57  23  43
  74  70  13   2  35  44
  21  49  90  91  12  38
max = a[3,2] = 99
s = 624