2.
For i:=1 to n do
begin
A[i]:=-50+Random(49);
Write(A[i]:3);
end;
3.
For i:=1 to n do
begin
A[i]:=i;
If not A[i] mod 2 = 0 then
Write(A[i]:3);
end;
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.