Hemul GM

Используй parallels desktop. Или другую виртуалку. Туда ставь че хочешь.

Потому что работает не явное приведение типов. Так же ты можешь использовать Integer, если требуется float или double. Или тип char, если требуется строка.

Это возможно, потому что диапазон значений word входит в диапазон значений Integer. А символ тоже может быть строкой.

Allcolors[i] - это i (итый) элемент массива. В данном случае, элемент типа word. А точнее - цвет для консоли.

А обязательно использовать PascalABC? Delphi не вариант?

p^ - означает обращение не к адресу, а к значению по этому адресу.
Сначала p и q владеют разными знаниями. Потом оба становится равным 2.
Т.к. q не равно p, то если их значения равны (а они равны по 2), то q теперь имеет такой же адрес как у p.
Дальше их адреса совпадают. Итого, ответ 2.

TBook = package record
  Pages: integer;
  Title: string[255];
  Author: string[255];
end;
...
var Item: TBook;
begin
  while not Eof(LoadF) do
  begin
    Read(LoadF, Item);
    SetLength(MyBooks, Length(MyBooks)+1);
    MyBooks[Length(MyBooks)-1] := Item;
  end;
...

Записи с точным размером ты можешь без проблем записывать напрямую в файл и читать.

НО!
Этот способ слишком низкоуровневый, малопроизводительный и вообще не стоит такое использовать.
Для этого используют файловые бд или современные форматы хранения данных. Например JSON или XML.

Вы неверно выполняете задание. На вход у вас одна строка "12+3+45", а не 3 разных переменных.
Следовательно, вы должны разделить строку по символам "+". И каждый отдельный набор символов, в данном случае
это 12, 3 и 45 привести к числовому типу, используя StrToInt или Val.

Проще всего используя Canvas.
Примерно так:

//Добавление по кнопке
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  //Смещение массива
  for i := 0 to 7 - 1 do
    Points[i] := Points[i + 1];
  //Добавляем в конец новое значение
  Points[7] := Random(40);
  //Перерисовываем окно
  Invalidate;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  //Заполняем случайными значениями
  for i := 0 to 7 do
    Points[i] := Random(40);
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  i, Offset: Integer;
begin
  with Canvas do
  begin
    //Смещение сверху
    Offset := 150;
    //Ставим начало рисования линии на ось Х и расположение первого элемента массива
    //10 - это интервал между точками
    MoveTo(0 * 10, Offset - Points[0] * 2);
    //Рисуем остальные элементы
    for i := 1 to 7 do
    begin
      LineTo(i * 10, Offset - Points[i] * 2);
      //Кружок для точки
      Ellipse(i * 10 - 2, Offset - Points[i] * 2 - 2, i * 10 + 3, Offset - Points[i] * 2 + 3);
    end;
  end;
end;

Ты в методе указал динамический массив (mas1,mas2:array of real), а передавать хочешь статический array[0..5]of real;

Определи статический массив как тип

type
  TMyArray = array[0..5]of real;

var
  mas, masX: TMyArray;

function Z(a: real; var mas1,mas2:TMyArray): real;
begin
...
end;

Ответ 4

P.S. не задавай больше таких "вопросов" здесь. Это задача, а не вопрос.

Ты инициализируешь переменную сразу в цикле. Такое не умеет TP.
Ну и судя по заданию, не забудь, что у тебя смещаются слова и индексы слов совпадать не будут.