1. Записывает введенное пользователем значение в переменную dr 2. integer 3. sqrt(число) 4. var 5. 16 6. 2 7. function x(a,b,c:integer); begin x:=-b+sqr(b)-sqr(4*a*c)*a; end; 8. 11 9. end. 10. d) 11. var a,b,c:integer; result:real; begin readln(a,b,c); result:=(a*b*c)/3; writeln(result:0:3); end. 12. real 13. оператор присвоения 14. Присвоить переменной F значение 125 15. write(B); или writeln(B); 16. корень из суммы квадрата х и ста делить на разность а и b умноженной на с 17. с) 18. Нет картинки как образован массив, значит сами решите 19. d) 20. c) 21. c)
Вариант, когда массив заполняется случайными числами:
var A: array [1..10] of integer;
var i,max,min: integer;
begin
max:=1;
min:=1;
randomize();
for i:=1 to 10 do
begin
A[i]:=random(100);
write(A[i],' ');
if (A[i]>A[max]) then max:=i;
if (A[i]<A[min]) then min:=i;
end;
writeln();
writeln('Минимальный элемент: ',A[min]);
writeln('максимальный элемент: ',A[max]);
end.
Вариант, когда массив вводится с клавиатуры:
var A: array [1..10] of integer;
var i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 10 do
begin
readln(A[i]);
if (A[i]>A[max]) then max:=i;
if (A[i]<A[min]) then min:=i;
end;
writeln();
writeln('Минимальный элемент: ',A[min]);
writeln('максимальный элемент: ',A[max]);
end.