Plzzz... Помогите с тестами!!!!

[Solny6ko YasnoE]

1. Дано описание:
const n = 30;
{тип, описывающий горную вершину}
type peak = record
title:string[20];{название}
height:1000..9999;{высота в м}
end;
list=array[1..n] of peak;

Описать процедуру printHighest(l), печатающую название самой высокой вершины из списка.


A.
procedure printhighest(a:list);
var i, ind:integer;
begin
ind:=1;
for i:=2 to n do if a[ind].height<a[i].height then ind:=i;
writeln(a[ind].title);
end;
B.
procedure printhighest(var a:list);
var i, ind:integer;
begin
ind:=1;
for i:=2 to n do if a[ind].height<a[i].height then ind:=i;
end;
C.
Procedure printhighest(a:list);
var i, ind:integer;
begin
ind:=1;
for i:=2 to n do if a[ind].height<a[i].height then ind:=i;
writeln(title);
end;
D.
Procedure printhighest(a:list);
var i, ind:integer;
begin
ind:=1;
for i:=2 to n do if a[ind].height<a[i].height then ind:=i;
writeln(a[i].title);
end;
E.
procedure printhighest(a:list);
var i, ind:integer;
begin
ind:=1;
for i:=2 to n do if list[ind]height<list[i].height then ind:=i;
writeln(a[ind].title);
end;

2. Имеется следующее описание
Type U = ^Zveno;
Zveno = Record
X, Y : Boolean;
Pred, Next : U
End;
var Logic : Boolean;
A, B : Pointer;
X, Y: U;
К ошибке компиляции "Несовместимость типов" приведет следующее присваивание
A. A := X^.Next^.Next;
B. X := Y;
C. Logic := X^.X;
D. X^.Next := A;
E. X^ := Y^.Next.

3. Определите тип выражения (здесь A : Array[1..20] Of Real; B : Boolean; C : Integer)
C + Ord(Round(A[7]) + Ord(B)) – Trunc(A[1])
A. Real;
B. Integer;
C. Boolean;
D. Byte;

4. Список объявлен следующим образом
Type Ukaz = ^Zveno; Zveno = Record X : String; N : Ukaz End;
Var First : Ukaz; {ссылка на начало списка}
В следующем фрагменте программы
P := First;
While P^.N <> Nil Do
Begin B := P; M := P;
While B <> Nil Do Begin If B^.X < M^.X Then M := B; B := B^.N End;
S := P^.X; P^.X := M^.X; M^.X := S; P := P^.N
End;
выполняется
A. перемещение компонента к началу списка;
B. сортировка компонентов списка в порядке возрастания;
C. сортировка компонентов списка в порядке убывания;
D. перестановка соседних компонентов списка;
E. добавление в список нескольких новых компонент.
5. Пусть дано следующее описание: var A,B,C:^real; I:integer. Какое присваивание является допустимым?
A. A:=17.
B. A:=I.
C. A:=B.
D. A^:=nil.

6. Имеется следущее описание переменных:
var a,b: ^integer;
Указать значение b^ после выполнения операторов:
new(a);
new(b);
a^:=13;
b^:=17;
a:=b;
b^:=a^-b^;
A. 13
B. 17
C. 0
D. 4
E. -4

[pu4koff]

1 - A
2 - E
3 - B
4 - C
5 - C
6 - C
ЗЫ. особо не думал, так что мог ошибица