надеюсь разберетесь что тут к чему, этот кусок кода нужно вставить после строки for i := 1 to n do writeln(r[i]); {Найденный массив}, а после этого вывести измененный массив, сами допишите. Если что-то не понятно смотрите текстовый файл во вложении.
4. ответ С
5. ответ С
6. ответ А
7.ответ В
8.ответ D
1:
var
x, y: real;
begin
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
2:
var x,y: real;
begin
read (x, y);
if (x>=3) and (x<=5) and (y>=3) and (y<=5) then
writeln('true')
else
writeln('false');
end.