ОЧЕНЬ НУЖНА БУДУ ОЧЕНЬ БЛАГОДАРЕН.
1)Сколько байт оперативной памяти будет занимать описанный массив?
t: array [1..80] of boolean;

Варианты ответов
160
10
0
80

2(Сколько элементов в описанном массиве?
d: array [byte] of byte;

3) Сколько байт занимает описанный массив?
a: array [boolean] of real;

4)Как обратится к элементу массива а с индексом 5?

5)Какие варианты описания элементов массива являются правильными?

Варианты ответов
c: array [char] of 1..7;
m: array [integer] string;
t: array [real] of real;
a: array [1..2] of byte;

6)Сколько байт оперативной памяти в среде Pascal ABC занимает описанный двумерный массив?
a: array [1..50, 1..70] of integer;

Варианты ответов
7000
70
3500
50

Выбрать требуемую толщину линий и кривых.Окно Палитра отображает текущий основной цвет и цвет фона. Чтобы рисовать выбранным основным цветом, протащите указатель. Чтобы рисовать выбранным цветом фона, щелкните правой кнопкой мыши и, удерживая ее, протащите указатель по изображению. Чтобы изменить текущий основной цвет, щелкните любой из доступных цветов. Чтобы изменить цвет фона, щелкните правой кнопкой мыши любой из доступных цветов. Чтобы создать новый цвет, щелкните правой кнопкой мыши любой из цветов и нажмите кнопку Определить цвет. Инструмент Криваяпозволяет проводить сглаженную кривую линию. Выберите инструмент Кривая, выберите толщину линии под панелью инструментов, выберите в палитре требуемый цвет и протащите указатель по изображению. Когда линия проведена, щелкните область изображения, где требуется разместить изгиб, и протащите указатель для придания дуге нужного изгиба.Инструмент Линия позволяет проводить прямую линию. Выберите инструмент Линия, выберите толщину линии под панелью инструментов, выберите в палитре требуемый цвет и протащите указатель по изображению. Чтобы провести линию фонового цвета, щелкните правой кнопкой мыши и, удерживая ее, протащите указатель по изображению.

1)
var a, b, c, i, n, j :integer;
     s :string;
begin
   read (s);
   for i:=1 to length(s) do
   begin
      if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32))
      else write (s[i]);
   end;
end.
2)
var a, b, c, i, n, j :integer;
     s :string;
     p :array[1..10000] of integer;
begin
   read (s);
   if s[1]=' ' then
   begin
      j:=j+1;
     p[j]:=1;
   end;
   for i:=2 to length(s) do
      if (s[i]=' ') and (s[i-1]<>' ') then
         begin
           j:=j+1;
           p[j]:=i;
         end;
   for i:=1 to j do
   begin
      a:=p[i];
      p[i]:=0;
      while s[a]=' ' do
      begin
         inc (p[i]);
         a:=a+1;
      end;
   end;
   b:=p[1];
   for i:=1 to j do
      if p[i]>b then b:=p[i];
   write (b);
end.
3)
var a, b, c, i, n, j :integer;
     s :string;
     p :array[1..10000] of integer;
begin
   read (s);
   i:=1;
   write (s[i]);
   while s[i]<>':' do
      begin
      inc (i);
      write (s[i]);
      end;
end.
4)
var a, b, c, i, n, j :integer;
     s :string;
     p :array[1..10000] of integer;
begin
   read (s);
   i:=1;
   while s[i]<>':' do
      inc (i);
   i:=i+1;
   while (s[i]<>':') and (i<=length(s)) do
      begin
      write (s[i]);
      inc (i);
      end;
end.